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Kleine Ursache — große Wirkung: 
Eine Münchener Maklerfirma kann 
sich seit vier Wochen nicht mehr 
vor Anrufen retten. Das wäre — 

bei der Wohnungsnot in München — 
eigentlich nichts Ungewöhnliches, 
nur: Die Anrufer stellen pausenlos 
Fachfragen zu Commodore- 
Modellen. Was war passiert? 

Durch einen — wir entschuldigen 
uns — Satzfehler war aus der 
Commodore-Welt- Telefonnummer 
129 80 14 die Nummer 129 80 34 
geworden. Sorry, liebe Anrufer, 
sorry, liebe Telefonistin bei der 
Firma Blumenauer, es soll nicht 
mehr vorkommen. Deswegen noch 
einmal: DIE COMMODORE- 
WELT ERREICHEN SIE JEDEN 
MITTWOCH UNTER DER 
MÜNCHENER RUFNUMMER 
089/129 80 14! 

Immer zwischen 16.30 und 20 Uhr 
sind alle Experten zur Beantwor- 
tung Ihrer Fragen anwesend. 
Warum wir das machen? Computer- 
Journalisten können nicht täglich 
acht Stunden am Schreibtisch sit- 
zen und „hacken”. Sie müssen 
raus, Firmen besuchen, Pressekon- 
ferenzen wahrnehmen, mal was 
anderes tun, oder aber auch: sich 
etliche Wochen nur rnit einem 
Thema beschäftigen, im stillen 
Kämmerlein, unerreichbar. 
Deswegen haben wir unseren ‚„Jour 
fix” eingerichtet. Um unseren 


Lesern zu garantieren, daß an diesem 


Tag, zu dieser Zeit, in jedem Fall 
ein Experte zur Verfügung steht. 
Wobei wir, in diesem Zusammen- 
hang, auch um Entschuldigung bit- 
ten, daß die Redaktion beispiels- 
weise nach 24 Uhr oder am Samstag 
und Sonntag nicht anwesend ist. 
Sie ist zwar für viele Wehwehchen 
zuständig, aber keine Notfall- 
klinik mit 24stündigem Einsatz 
rund um die Uhr an sieben Wochen- 
tagen. Auch die Mitarbeiter der 
COMMODORE-WELT haben ein 
Recht auf ein Wochenende. 
Einverstanden? 
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Apropos Recht auf Freizeit. Unser 


Abo- und Kassetten-Service ist stock- 


sauer. Weil sich bei den Damen 
nämlich die absolut überflüssigen 
Überstunden häufen. Warum? 
Etliche liebe Zeitgenossen finden es 
beispielsweise überflüssig, wenn sie 
ihre Abo-Gebühren zahlen, ihren 
Namen samt Adresse auf die Über- 
weisung zu schreiben. Woraufhin 
wir zwar das Geld haben, aber spä- 
testens in vier Wochen die wütenden 
Anrufe beantworten müssen, wo 
denn das Heft bleibe. Andere 
wiederum sind so intelligent, eine 
Kassette oder Diskette zu bestellen, 
legen auch den entsprechenden 
Verrechnungsscheck bei, vergessen 
aber, den Bestellschein auszufüllen. 
Dann stehen weder der Name noch 
die Anschrift noch das Heft drauf. 
Wiederum andere schneiden die 
Adresse aus dem Coupon, kleben 
sie vorne auf den Briefumschlag und 
unser Kassetten-Service darf dann 
raten, welches Computer-System 
überhaupt gemeint ist — denn 
schließlich betreut er vier ver- 
schiedene Zeitschriften und dem- 
entsprechend vier verschiedene 
Computer. 


Pinwandaus- 
schnitt mit nicht 
identifizierbaren 
Überweisungen 


Bitte,helfen Sie unseren Damen. 
Geben Sie bei Überweisungen 
grundsätzlich in lesbarer Schrift 
Name und Adresse an (Peter Müller, 
Köln, ist auch nicht das Wahre), 
schreiben Sie bei Postanweisungen 


INHALT COMMODC 


auf den Empfängerabschnitt, was 
Sie wollen, schneiden Sie den Be- 
stellcoupon vollständig aus. 

Sie ersparen sich 

1.: Ärger — weil nix kommt 

2.: teure Telefonanrufe 

und 3: uns viel Arbeit. 

In diesem Zusammenhang: Wissen 
Sie, was es kostet, wegen eines 
Zehn-DM-Schecks von München 
nach Hamburg zu telefonieren, von 
der dortigen Bank ‚wg. Datenschutz” 
keine Antwort zu erhalten und 
dann den Weg über einen Banksuch- 
auftrag zu gehen? Mit zwanzig Mark 
Gebühren sind Sie dabei. 
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TEST & TECHNIK 


Mehr RAM: 
64 K für die kleinen 
Commodore — Teil Ill — 


C 64: 
Die Maus macht’s möglich 


StarTexter: 
Wirklich ein Star? 


128 PC: 
Hardcopy per Tastendruck 


128 PC: 
40/80-Zeichenmodus 
umschaltbar 


Floppy 1541: 
Schneller als der Schall 


SERIE & SERVICE 


128 PC: 


Qual statt Wahl — die Sache 


mit der 40/80-Zeichen- 


darstellung a laCommodore abSeite 4 


C 16: 
Berichtigung 


Peek + Pokes: 
Was viele nicht wissen 


C/PM: 
Das unbekannte Wesen 


Kartei: 
Viele unbekannte Befehle 


Börse: 
Zum Suchen und Finden 


C 16/116/Plus 4: 
Die Seite 16 


ab Seite 6 


ab Seite 12 


ab Seite 14 


ab Seite 56 


auf Seite 66 


ab Seite 68 


aufSeite 9 


ab Seite 10 


ab Seite 58 


ab Seite 61 


ab Seite 63 


auf Seite 16 


LISTINGS 


Buchhaltung 
Funktionstastenbelegung 
Floppy-Fehler 
Einarmiger Bandit 


Car-Labyrinth 
Vokabel-Trainer 
Painter 
Sound-Maker 
Stenobasic-Trainer 


ab Seite 18 


Der 128er ist schon ein 
prächtiger Computer, aber 
er hat auch seine Schatten- 
seiten. Eine davon ist die 
40/80-Zeichendarstellung. 
Zwei Berichte dazu 

mit einem Lösungsvorschlag 
Ab Seite 4 


Sie ist ‚in‘: die Maus. 
Jetzt gibt es sie auch für 
den 64er. Unser erster 
Erfahrungsbericht 

Ab Seite 12 


Stark im Kommen: 

die Kleinen von Commodore, 
vor allem die 16er-Reihe. 
Diesen Modellen sind 
mehrere Beiträge gewidmet 
Ab Seite 16 (wie denn 

auch anders?) 


REPORT 


Zu den vielgepriesenen Vorzügen des 128ers gehört 
die wahlweise Nutzung von 40 oder 80 Zeichen. 
Doch dies geschieht zum Leidwesen des Anwenders 
und zur überschwenglichen Freude der Zubehörin- 
dustrie über zwei verschiedene Monitorausgänge. 
Damit hat diese wieder einmal mehr die Möglichkeit, 
an Commodores Konstruktionen Geld zu verdienen. 


Harsche Worte sind hier 
leider unumgänglich. Er- 
neut ist die optimale Nut- 
zung eines Commodore 
Gerätes nur über Umwege 
zu realisieren. Als Bei- 
spiel sei hier nur das 1541 
Laufwerk genannt, im 
Prinzip naher Verwandter 
der großen Megabyte-Flit- 
zer der 4**x* und 8*** 
Rechner, einigen vielleicht 
noch vom Informatikun- 
terricht an den Schulen 
bekannt. Alleine an die- 
sem absichtlich gedrossel- 
ten Laufwerk verdienen 
sich einige Anbieter mit 
ihren Tuning-Kits eine gol- 
dene Nase und beweisen, 


daß es doch schneller geht. 


Oder das 2.0er Basic, 
ebenfalls beim C64. Wohl 
kaum ein ernsthafter An- 
wender, der auf seinem 
64er nicht nur spielen 
wollte, ist um den Kauf 
von Zusatzsprachen wie 
Exbasic oder andere ge- 
kommen. Oder die gerade- 
zu schizophrenen Mini- 
Steckerchen an den C 16/ 
116/Plus 4-Rechnern, wel- 
che es nicht ermöglichen, 
die Peripheriegeräte von 
den anderen Commodore 
Home-Computern zu ver- 
wenden, ohne Geld für 
Adapter ausgeben zu 
müssen. Seltsam ist es auf 
alle Fälle, daß sich die 
Anwender dies gefallen 
lassen. Der C 64 wird 
verkauft wie nie, die 
Ladenkassen für Kabel, 
Stecker und Adapter klin- 
geln besonders seit dem 
Vorstoß der 3.5er-Model- 
le unaufhörlich. 

Und dann der 128er. 

Als Personal Computer of- 
feriert, mit dem besten 
Basic seit Commodores 
Gründung ausgestattet 
(bis Amiga kam), mit end- 
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lich halbwegs erträglichen 

Disketten-Zugriffszeiten, 

mit deutscher DIN-Tasta- 

tur, und und und. Die 

Vorzüge dürften wohl hin- 

reichend bekannt sein. 

Aber dann die Crux: Sie 

wollen auf ein und dem- 

selben Monitor 40 oder 

80 Zeichen darstellen? 

Vorausgesetzt, Sie sind 

kein Elektrofachmann, 

laufen Sie erst einmal in 
das nächste Fachgeschäft 
für Computer und hof- 
fen, daß das dortige Lager 
gut sortiert ist und diver- 
se Verbindungskabel be- 
reit hält. Denn egal, ob 

Sie jetzt einen Monitor 

nur mit Cinch-Buchsen 

besitzen oder ein Luxus- 
modell mit diversesten 

Eingängen, Geld müssen 

Sie auf jeden Fall lok- 

ker machen. Je nach Mo- 

nitor haben Sie zwei Mög- 
lichkeiten, dieses loszu- 
werden: 

l. Sie entscheiden sich für 
ein Kombikabel mit 
Schalter und Cinch- 
Ende. 

2. Sie kaufen zwei ver- 
schiedene Kabel für 
RGBI und Video-Aus- 
und Eingänge. 

Preislich liegen beide Va- 

rianten auf dem selben 

Level, ca. 50 DM, je 

nach Geschäft. 

Hier nun ein Vergleich der 

beiden Möglichkeiten: 


DAS KOMBI-KABEL 


Es wird gleichzeitig mit 
dem RGB und Video- 
Ausgang des 128ers ver- 
bunden. Hintendran sitzt 
eine mehr oder minder 
voluminöse Box (meistens 
etwas größer, damit man 
wenigstens etwas Optik 


für sein Geld erhält), 
welche lediglich einen 
kleinen Schalter beher- 
bergt. Mit diesem kann 
nun zwischen 40-und 80- 
Zeichendarstellung ge- 
wählt werden. Dies sollte 
besser im jeweils ausge- 
schalteten Zustand von 
Monitor und Rechner er- 
folgen, um die beiden 
Video-Controler nicht zu 
sehr durcheinander zu 
bringen und vorzeitig zu 
lynchen. 

Voraussetzung hierfür ist 
ein Grün- oder Bernstein- 
monitor (denn mit dieser 
Version ist keine Farbüber- 
tragung möglich), welcher 
lediglich über die inzwi- 
schen zur Norm avancier- 


ten Cinch-Anschlüsse ver- 
fügen muß. 

Vorteile: Geringere Ab- 
messungen des Monitors 
gegenüber einer Farbaus- 
führung, billiger als ein 
Monitor mit mehreren Ein- 
gängen, kompakte Kabel- 
führung, da lediglich ein 
Kabel in den Monitor 
läuft, Tonwiedergabe 

auch im 80-Zeichenmodus. 
Nachteile: Durch die ver- 
wendeten Mikroschalter 
zum Wechseln zwischen 
der Bildschirmbreite nei- 
gen diese Kabel zum Kurz- 
schluß, welcher leicht 

zum Kollaps eines der bei- 
den Controler führt (meist 
derjenige für 40 Zeichen, 
kostet ca. 60 DM). 


Abhilfe schaffen da selbst 
eingelötete, stabilere 
Schalter, die in den über- 
großen Boxen mehr als 
genug Platz finden. 

Diese Box ist auch ein 
Nachteil der schaltbaren 
Version, denn so ein Ge- 
häuse will ja irgendwo be- 
festigt, sprich unterge- 
bracht werden. 

Für Besitzer von Monito- 
ren nur mit Cinch-Eingang 
leider die einzige Alter- 
native. 


ZWEI VERSCHIEDENE 


KABEL 


Unbedingt zu empfehlen 
für die Besitzer von Farb- 


REPORT 


monitoren, welche zwi- 
schen CVBS und RGB 
umgeschaltet werden kön- 
nen und logischerweise 
auch diese Eingänge be- 
sitzen. Die Gefahr des 
Mordes an einem Video- 
controler ist nicht gege- 
ben, außerdem kann die 
Umschaltung auch bei 
eingeschaltetem Gerät 
vorgenommen werden, 
was die Simulation von 
zwei Bildschirmen ermög- 
licht. 

Leider kann der Monitor 
im 80-Zeichen-Modus 
keine Tonsignale des 40er- 
Kanals erhalten. 
Letztendlich ist es Frage 
des Geschmacks sowie 
des verwendeten Bild- 


schirms, auf welche Weise 
der Anwender die Elektro- 
industrie subventioniert. 
Wer jedoch die billigste 
Lösung sucht, sollte sich 
die Bauanleitung für das 
Kombikabel in diesem 
Heft verinnerlichen, denn 
selbst ist der Löter... 
Warum allerdings von 
Commodore vorgeschrie- 
ben wird, diesen Umweg 
bei einem modernen Com- 
puter zu beschreiten, ist 
schleierhaft. Im Handbuch 
empfehlen die Autoren 
dann auch noch allen Ern- 
stes, man solle sich zwei 
Monitore vor den Rechner 
stellen (Kapitel 4-8, er- 
weiterte Bildschirmfunk- 
tionen). Das kommt wohl 


lediglich für den in Frage, 
der einen zu großen Ar- 
beitstisch besitzt und für 
den Komplettausbau sei- 
ner Anlage samt zwei Mo- 
nitore bereits soviel hin- 
blättern will, wie der 
komplette PC 10 von Com- 
modore kostet. Die wesent- 
lich angenehmere Lösung 
stellt doch wohl das Um- 
schalten per Software, al- 
so mit einem einzigen Be- 
fehl, wie es sich ausge- 
rechnet Commodore von 
anderen Anbietern (z.B. 
MSX) vorexerzieren las- 
sen muß. Mit >ESCAPE X< 
läßt sich zwar zwischen 
den beiden Darstellungen 
hin- und herspringen, aber 
leider nur über den Um- 
weg von zwei verschiede- 
nen Aus- bzw. Eingängen. 
Auch die Definition von 
Arbeitsfenstern mit dem 


SCHON ETWAS 
SELTSAM! 


WINDOW-Befehl ist leicht 
möglich, interessiert je- 
doch den angeschlossenen 
Bildschirm für seine Dar- 
stellungsbreite überhaupt 
nicht. Schon etwas selt- 
sam für einen “Personal 
Computer‘, Commodore 
beweist doch mit seinen 
PCs und dem AMIGA, 
daß es auch anders geht. 
Vielleicht wäre dies die 
Lösung: Diejenigen bei 
Commodore, welche für 
die Entwicklung von 
neuen Modellen verant- 
wortlich zeichnen, bräuch- 
ten bloß einmal in die 
Entwicklungsabteilung 
eine Tür nebenan zu se- 
hen. Vielleicht würden 
dann nicht mehr so viele, 
selbständige Brötchen ge- 
backen, wie es bisher der 
Fall war. Ein erster 
Schritt ist ja wenigstens 
mit der Auf- bzw. Ab- 
wärtskompatibilität des 
3.5er Basic der Kleinen 
von Commodore zum 
7.0er des PC 128 und um- 
gekehrt getan. 
Aber so lange der 128 er 
gekauft wird, wird wohl 
auch kein Entwickler an 
die Verbesserung des Bild- 
schirm-Mankos denken. 
Eben Commodore... 
Thorsten Seibt 


DIALOG 


DIE GEISTER 
DIE WIR RIEFEN 


Euer Artikel in 5/86 zur Aufrüstung des C16/C116 war schon ein Hammer 
(die Magazine RUN und MC zogen ja auch gleich nach)! Natürlich habe ich mir 
die passenden Chips 41464 sofort besorgt und bin meinen beiden Computern ans 
Innenleben. Fast gleichzeitig tat dies auch einer meiner Kollegen. 
Hierzu ein Tip und eine bedeutende Frage: 


gelötet werden können. 
Vielleicht gibt es ja dem- 
nächst eine Anleitung zur 
Aufrüstung auf 128K ??? 


DIE FRAGE: 


Nach dem Umbau läuft 
der Computer völlig pro- 
blemlos; bis auf eine Aus- 
nahme. Wenn ich ein um- 
fangreiches Stringarray 
abgespeichert habe und 
den Diskstatus über die 
Systemvariable DS$ ab- 
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Schaltplan 


Das Auslöten der überflüs- 
sigen 4416 RAMs sollte 
man sich ersparen; die 
Gefahr, seinem guten 
Stück den Garaus zu ma- 
chen, ist zu groß. Einfa- 
cher ist es, mit einer Mini- 
fräse oder einem scharfen 
Messer die Pinanschlüsse 
direkt am Gehäuse abzu- 
trennen. Die übriggeblie- 
benen Beinchen dienen 
dann als hervorragende 
Lötstützpunkte für die 
neuen Chips. Deren An- 
schlüsse werden vorher 
sparsam von der Innen- 
seite her verzinnt. Dann 
schiebt man die Chips 
über die Beinchen der 
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alten und erhitzt sorgfäl- 
tig Anschluß für An- 
schluß. Dies hat außer- 


dem den Vorteil, daß die 
so befestigten neuen 
ICs sehr leicht wieder aus- 


frage, baut mein Be- 
triebssystem ziemlichen 
Mist: Bereits definierte 
Stringvariablen erhalten 
völlig verwirrte Zeichen 
und meist werden auch 
zwei Arrayvariablen to- 
tal zerhauen. Mit dem 
Monitor habe ich nun ver- 
sucht herauszufinden, 
woran das liegen könnte. 
Das einzige, was ich fest- 
stellen konnte ist, daß 
der Statustext meist in 
der Nähe von $7000 mit- 
ten in das Stringarray ge- 
schmissen wird. Wenn 
man dann noch eine 
Garbage-Collection pro- 
voziert (mit fre), dann 


DIALOG 


kann man seine hüb- 
schen Daten vergessen! 
Es kommt aber noch bes- 
ser: Beide Computer zei- 
gen exakt das selbe Feh- 
lerbild. Beide erschlagen 
die selben Variablen und 
beide liefern mir dann 
die selben wirren Strings. 
Wissen Sie Rat oder 

sind Sie bereit, das Pro- 
blem zu veröffentlichen, 
damit sich vielleicht 
noch mehr Leidgeprüf- 
te melden und gar je- 
mand die Lösung 
preisgibt? 

Helmut Plein 


Herr Plein hat Recht mit 
seinem Tip des “Bein- 
chen abschneiden‘ — ich 
hatte in dem Artikel in 
5/86 Ähnliches vorge- 
schlagen. Meine Warnun- 
gen waren durchaus ernst 
gemeint und nicht als 
Ankurbelung des eigenen 
Umsatzes. Den Vorschlag, 
die Beinchen als Lötstütz- 
punkte in der Leiterplatte 
zu belassen finde ich gut. 
Es ist nur darauf zu ach- 
ten, daß es keine Proble- 
me mit der Einbauhöhe 
bei Computern mit einer 
Metallabschirmung gibt! 
Die Probleme mit der Zer- 
störung von Stringvaria- 
blen haben wir nicht 
nachvollziehen können, 
können uns jedoch vor- 
stellen, daß das gleiche 
Problem wie beim Laden 
von Maschinenprogram- 
men nach Graphic hier 
umgekehrt mit großen 
Speicherbereichen vor 
Graphic eintritt. Wir sind 
bereit, wenn Herr Plein 
uns seine Stringdaten z.B. 
auf Diskette (1541 For- 
mat) zusendet, dieses Pro- 
blem genauer zu durch- 
leuchten. Ich könnte mir 
jedoch vorstellen, daß das 
ganze Problem nach ei- 
nem Graphic Aufruf und 
Rückkehr zu Basic (nach 
der Initialisierung) nicht 
mehr erscheint. In die- 
sem Falle werden dann 
die für die DS$ benötig- 
ten Felder gleich in ande- 
re Bereiche geschrieben. 
Uns selbst würde inter- 
essieren, ob jemand für 
die Commodore Version 
3.5 (C164 oder Plus/4) 


ein Buchhaltungs- und 
Lagerverwaltungspro- 
gramm für einen mittleren 
Handwerksbetrieb anzu- 
bieten hat. Wir würden 
ein gutes Programm auch 
gut honorieren und den- 
ken, daß auch andere 
Interessenten noch zu 
finden sein müssen. 


auch, bringt jedoch tota- 
le Konfusion während 
des Arbeitens und einen 
Programmabsturz beim 
Umschalten. Lange 
Adreßleitungen fangen 
sich auch sehr gerne Stör- 
impulse ein, von denen 
wir im Gerät ja schon 
mehr als genug haben. 


RAM nach Graphicaufruf 
$1000-17FF(C16/C116) 
$4000--FCFF(C164/ 
C1164/Plus/4) 


Nach LOAD werden alle 
Programme (auch Ma- 
schinenprogramme) rela- 
tiv auf den BASIC-An- 
fang (BASBGN) geladen 


Offensichtlich hat es und erscheinen nach dem Sie wollen den eingekauf- 
Probleme mit der Kom- Graphicaufruf beim ten Speicherplatz sehen? 
patiblität der 6AK-RAM- C164/1164 anstattauf Der TEDMON zeigt nur 


$1000 auf $4000. Hier 
laufen diese Programme 
natürlich nicht. 

Lösung: Alle Maschinen- 
programme direkt laden, 
z.B. mt LOAD” "2.1 
oder LOAD “ “,8,1 dann 
erscheinen sie dort, wo 
man sie auch erwartet. 
Man kann jedoch die 
Maschinenprogramme 
mit dem TEDMON auf 
54000 umassemblieren. 
Kommen Sie jedoch nicht 
auf die Idee, den RAM- 
Bereich mit einem Schal- 
ter nach Bedarf wieder 
reduzieren zu wollen. Dies 
geht zwar im Prinzip 


die ROM-Bank! Die Um- 
schaltung nehmen Sie 
mit Andern der Speicher- 
stelle 07F8 von $00 in 
$80 vor. Umgekehrt geht 
das natürlich auch. 
Übrigens: 
Entgegen allen Gerüchten 
werden CI6 #C 116 2.21: 
(bisher über 100 Umbau- 
ten) immer noch für 
97,80 DM (100 DM Vor- 
kasse) bei Elektronik- 
Technik, Tannenweg 9, 
D 2351 Trappenkamp, 
innerhalb eines Tages um- 
gebaut. (Morgens rein — 
abends raus! 

Ing. U. Peters 


Erweiterung für den C16/ 
C116 gegeben. Einige 
Spezialisten sind wohl 
der Meinung, daß bei 
Ladeschwierigkeiten ein 
zusätzlicher Schalter ein- 
gebaut werden muß, der 
zwischen der 16K und 
der 64K-Version hin- und 
herschaltet. Ihre Leser 
sollten nicht verunsichert 
werden, denn die Inkom- 
patiblität liegt nur darin 
begraben, daß hier Ma- 
schinenprogramme mit 
Load relativ geladen wer- 
den und nicht absolut mit 
z.B. Ebad... 1 

Beim C16 in Originalver- 
sion ist dies allerdings 
möglich, “‘wenn‘‘ die Ma- 
schinenprogramme auch 
am Basic-Beginn anfan- 
gen. Da sich der Basic- 
Beginn jedoch in Abhängig- 
keit von dem Betriebs- 
mode (Graphic) von $1000 
auf $4000 verändert, funk- 
tioniert dies beim Plus/4 
entsprechend dem umge- 
bauten C16 / C116 
(C164/1164) nicht mehr. 


Qualität hat einen Namen 
I‘ Roßmöller GmbH 
„Nur Fliegen ist schneller’ (Chip 1,86) 
Bis zu 200mal schneller Laden und Abspeichern! 


. £ 
> IT 
/ £ Ä 3 FE E R E ee 


DM 249,— 


EINIGE PROGRAMME Zug 3 Re: 
LAUFEN NICHT! = FE £E£ 


als Aufrüstung des bewährten TurboAccess 
komplette Aufrüstung inkl. Turbo Access DM 449,— 
als Komplettsystem für den PC 128 DM 549,— 


Weltneuheit 


Shugart — Bus für C64 und PC 128 

mit Anschluß für bis zu 4 Laufwerken. j 
Für 3”, 3 1/2”, 5 1/4” und 8” Discetten (auch gemischt möglich) 
IBM Aufzeichnungsformat. 50-fach schnellere Be 
keit als die normale 1541. Interface DM 498,— 
MEGAFACE | 
DAS frei programmierbare Druckerinterface ohne Kompromisse 
mit bis zu 2 MByte Druckpuffer! (Minimum 64 KByte) 


IEC seriell oder 
IEC parallel oder 


Einige Maschinenprogram- 
me laufen tatsächlich 
nicht mehr nach LOAD! 
Maschinenprogramme ge- 
hören jedoch immer an 
die Stelle, von der sie ab- 
gespeichert wurden. Hier- 
für muß der Absolut- 
Lader mit der Sekundär- 
adresse I angesprochen 
werden. Wird die Sekun- 
däradresse fortgelassen, 
so ist diese mit 0 d.h. Re- 
lativlader definiert. 


Jetzt wird die RAM-Auf- 
teilung interessant: 
RAM vor Graphicaufruf 
$1000-3FFF(C16/C116 
$1000-FCFFI(C164/ 
C1164/Plus/4) 


Ausgang: IEC seriell oder 

IEC parallel oder 

V.24(RS-232) oder V.24(RS-232) oder 
Centronics Centronics 

Sofort unseren Gratis-Katalog mit TurboTrans-Hefter 


anfordern! 


Eingang: 


Kupönchen für Katalog 
An die 

Roßmöller GmbH 
Maxstr. 50—52 

5300 Bonn 1 


Öffnungszeiten unseres Ladengeschäfts: 
Mo—Fr 9:00—18:30, Sa 9:00—14:00 Uhr 

bzw. bis 17:30 Uhr 
Telefon: 0228-659980* & 0228-650212 
*rund um die Uhr mit Anrufbeantworter 


Aktuelle 


er 


EIN DAFA BECKER BUCH 


Von Anfang an ohne Probleme! Damit alles 
klar geht vom Anschluß des Gerätes bis 
zur ersten Programmierung, führt kein Weg 
am Einsteigerbuch vorbei. Alle Themen- 
bereiche werden systematisch abgedeckt, 
sei es Grundwissen in Handhabung, Ein- 
satz und Ausbaumöglichkeiten oder die 
BASIC-Programmierung. Einfach unent- 
behrlich für jeden, der richtig einsteigen 
will. 

64 für Einsteiger 

215 Seiten, DM 29,— 


EIN DATA BECKER BUCH 


Eine Fundgrube für alle C-128 Besitzer! Ob 
man einen eigenen Zeichensatz erstellen, 
die doppelte Rechengeschwindigkeit im 
64er Modus benutzen oder die vorhande- 
nen ROM-Routinen verwenden will. Dieses 
Buch ist randvoll mit wichtigen Informa- 
tionen; z.B.: Bank-Switching/Speicherkonfi- 
guration, Registererläuterungen zum 
Video-Controller und 640x200 Punkte 
Auflösung. Dieses Buch darf bei keinem 
128er fehlen! 

128 TIPS& TRICKS, 327 Seiten, DM 49,— 


EIN DATA BECKER BUCH 


Mit diesem Buch zu Ihrem C16 verfügen 
Sie über eine leichtverständliche Einfüh- 
rung in Handhabung, Einsatz und Program- 
mierung des C16, die keinerlei Vorkenntnis- 
se voraussetzt. Themen: Bedienung von 
Tastatur und Editor, erster Befehl und 
erstes Programm, BASIC Einführung mit 
Erstellung einer kompletten Adressen- 
verwaltung! Nur der richtige Einstieg 
garantiert den späteren Erfolg! 

C16 für Einsteiger 

205 Seiten, DM 29,— 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 


EIN DATA BECKER BUCH 


BASIC leichtgemacht! Das bietet dieser 
komplette Programmierkurs in der preis- 
werten Buchform. Mit ihm lernen Sie von 
Grund auf das Beherrschen der einzelnen 
Befehle und ihre Anwendungen. Vieles 
über die Grundlagen des Programmierens, 
über BIT, BYTE und ASCII-Code, Programm- 
ablaufpläne, Unterprogramme und Menue- 
techniken. Alles was Sie für Ihre zukünf- 
tigen Programmiererfolge benötigen. 

Das BASIC-Trainingsbuch zum 
Commodore 64 

308 Seiten, DM 39,— 


g 
BASIC-Buch 


EIN DATA BECKER BUCH 
ÄIAR 


Sie haben den Einstieg auf dem Commo- 
dore 128 geschafft? Dann werden Sie mit 
diesem Buch zum Profi. Aus dem Inhalt: 
Datenfluß- und Programmablaufpläne, 
fortgeschrittene Programmiertechniken, 
Menüerstellung, Grafikprogrammierung, 
mehrdimensionale Felder, Sortierroutinen, 
Dateiverwaltung und viele nützliche Utili- 
ties. So lernen Sie professionelles Program- 
mieren. 

Das große BASIC-Buch zum Commodore 
128, 452 Seiten, DM 39,— 


C 16 


Tips & Tricks 


Eine Fundgrube für den 
Commodore 16 Anwender 


EIN DATA BECKER BUCH 


Haben Sie einen C16/116 und kein Futter 
für ihn? Dann kann Ihnen mit diesem Buch 
geholfen werden. Aus dem Inhalt: Spiele, 
Malprogramme, Laufschrift, Textverarbei- 
tung, Dateiverwaltung, Vokabeltrainer, 
Hardcopy, Merge, Shapeeditor, simulierter 
Direktmodus, der integrierte Monitor, Zero- 
page, Routinen des Betriebssystems und 
des BASIC-Interpreters. Dieses Buch gehört 
griffbereit neben Ihren Rechner. 

C16 Tips & Tricks 

201 Seiten, DM 29,— 


Das auflagenstärkste deutsche Computer- 
buch bringt in einer komplett überarbeite- 
ten Neuauflage alle Tips & Tricks auf einen 
Blick. Sparen Sie das lästige Blättern und 
Suchen in Büchern und Zeitschriften - mit 
dem Original können Sie Ihre Zeit sofort 
zum Programmieren verwenden! BASIC- 
Programmierung effektiver und besser, 
Grafik, Soundprogrammierung, die Schnitt- 
stellen, die Peripherie, Befehlserweiterun- 
gen und ein ganzes Kapitel mit Kurz-Tips. 
64 Tips & Tricks, Band 1 

422 Seiten, DM 49,— 


EIN DATA BECKER BUCH 
ZA 


Lassen Sie sich verzaubern! Durch die 
Grafikmöglichkeiten des C-128. Aus dem 
Inhalt: die 3 Betriebsmodi, Grafikbefehle 
des BASIC 7.0, Textgrafik, Hi-Res/MC- 
Grafik, Sprites/Shapes, der VIC II und der 
VDC-Chip, Statistik, Funktionsplotter, CAD. 
Ein/Ausgabe von Grafiken, farbige hoch- 
auflösende VDC-Grafik, Grafikprogrammie- 
rung in 8502 Assembler u.v.m. 

Das große Grafikbuch zum C-128, 

369 Seiten, DM 39,— 


EIN DATA BECKER BUCH 


Der AMIGA ist ein Superrechner! Schritt für 
Schritt werden Sie mit dem AMIGA vertraut 
gemacht. Aufbau, Tastatur, Maus, Bedie- 
nung und Programmierung in BASIC. Ler- 
nen Sie die phantastischen Grafik- und 
Soundmöglichkeiten des AMIGA kennen. 
Eine leichtverständlich geschriebene 
Pflichtlektüre für jeden AMIGA-Interessen- 
ten, ein Muß für Besitzer dieses 
Rechners. 

AMIGA für Einsteiger, 

360 Seiten, DM 49,— 


COMMODORE Buchhits 


64 


(ips & Tricks 


P BAND 27 


Eine Fundgrube für den 
Commodore 64 Anwender 


EIN DATA BECKER BUCH 


Auch der zweite Band weckt Experimen- 
tierfreude: mit umfangreichen Kapiteln 
über Softwareschutz - Zeiger und deren 
Manipulation - mehr über Interrupt-Hand- 
ling mit vielen Beispielen - Betriebssystem 
ins RAM kopieren und dort manipulieren - 
und viele andere nützliche Befehlserweite- 
rungen und Routinen. 

64 Tips & Tricks, Band 2 

259 Seiten, DM 39,— 


AN 
IN: 


hi) 
AN 
\\ 


BUCH 


EIN DATA BECKER 
1 al 


Jetzt gibt es das große Floppybuch auch 
zur 1570/1571! Mit einer Einführung für Ein- 
steiger, Arbeiten mit dem C-128 und BASIC 
7.0, einer umfassenden Einführung in das 
Arbeiten mit sequentiellen und relativen 
Dateien, Programmierung für Fortgechrit- 
tene: Nutzung der Direktzugriffsbefehle, 
Programme im DOS, wichtige DOS-Routi- 
nen, und natürlich ein ausführlich doku- 
mentiertes DOS-Listing. 

Das große Floppybuch zur 1570/1571, 
583 Seiten, DM 49,— 


DATA WELT 7:8/86 


Die große Sommer-Doppel- 
nummer, die Sie sich nicht ent- 
gehen lassen sollten. Voll- 
gepackt mit aktuellen 
Artikeln zu ATARI ST, 
AMIGA, C 64 und C 128, 
CPC und PCs. 

DATA WELT 7:8/86 

ab 23. Juni am 
Kiosk. 


ia Deal 


SERVICE 


BERICHTIGUNG ZU HEFT 6/86 


COMMODORE WELT 


Leider ist auch die Commodore-Welt nicht 
gegen Fehler gewappnet. Gleich zwei davon 
unterliefen uns bzw. unseren bösartigen 
Gerätschaften in der letzten Ausgabe. 

Die Listings zu unserer neuen Rubrik „Seite 16”, 


 Money- und Stapelgraph, wurden aus Versehen 


auf einem C 64 mittels Exbasic Il bearbeitet. 
Dies mag ja für 64er Listings eine wunderbare 
Sache sein, leider aber vergaß der arme Mensch 
vom Programmservice (vor lauter Arbeit), daß 
ein C 64 recht eigenwillige Manieren an den Tag 
legt, wenn man ihn mit dem hervorragenden 
3.5Ber Basic von Commodore füttert. Dann kom- 
men statt so wunderschöner Befehlen wie 
COLOR, WINDOW oder CHAR ganz andere aus 
dem Computer, sprich Drucker, heraus. Warum? 
Nun, vor lauter Eigenbrötlerei und — die 64er 
Gemeinde möge uns verzeihen — aufgrund des 
schwachen und veralteten 2.0er Basics ist der 

C 64 nicht in der Lage, solche Tokens anzuer- 
kennen und wandelt diese in für ihn logische 
wie LIST oder PRINT um. Daß solche Listings 
dann etwas an Sinn vermissen lassen, liegt wohl 
auf der Hand. Daher hier die Originallistings, 
frisch aus einem Plus/A4. 


10 rem moneygraph=========116/16 

20 rem (p) commodore welt = 

30 rem ========= ===> = mu mnnnnnn 

40 rem (c) cw-team = 

50 rem = 

60 rem c116/c16/plus 4 = 

70 rem ====-=-- === ==, = ,u nn nn 
100 color1,2,0:colorO,2,4:color4,2, 
4 

110 graphici,1 

120 circle1,15, 5,15,5:paint1,5,5 
130 circle1,15, 8,15,5 

140 sshape b$,0,0,30,13 

150 circle1,15,11,15,5 

160 sshape t$,0,0,30,13 

170 a$="money-graphik":char1,5,1,a$ 
180 x0=-10:y0=-160:z=30:a$="einnahmen 
":gosub290:s=zZ 

190 color1,3,1 

200 x0=100:y0=-160:z=12:a$="nahrung” 
:gosub290:s=s-z 

2140 char1,x0/8, 6,"kleidung” 

220 x0=180:y0=-160:z=10:a$="wohnen”: 
gosub290:s=s-z 

230 x0=-260:y0=-160:z= 3:3a$="auto":go 
sub290:s=s-z | | 

240 getkeya$ 

250 color1,6,1 

e60 x0= 40:y0=160:Zz= 
s:3$="":gosub290 


270 char1,x0/8+2,(y0-i*3) /B-2,"rest 


280 getkeya$:graphicQü:end 

290 char1,x0/8, 5,8$ 

300 gshape b$,x0,yO 

310 for i=-1 to z-1 

320 gshape t$,x0, yü-i*3 

330 next :3a$=mid$( str$( i*100) ,2) 
340 char1,x0/8+2,(yO-i*3) /8,a$ 
350 return 


S5Straepelgroaphik 


10 rem stapelgraphik =====116/16 

20 rem ({p) commodore welt = 

30 rem =========-=-=-=-=-=-= =, nn 

AO rem (c) cw-team = 

5S0 rem = 

60 rem c116/c16/plus 4 = 

70 rem ===================c2 mus 
100 color1,2,0:colorO0,2,4:color4,2, 

4 

110 graphic], 

120 draw1,0,15 to 20,15 to 30, 9 to 
10, 9 to 0,15 :paint1,10,13 

130 draw1,0,15 to 0,18 to 20,18 to 

30,12 to 30, 9 

140 draw1,0,18 to D0,21 to 20,21 to 

30,15 to 30,12 

150 sshape b$,0D,10,30,21 

55 draw1,0,21 to 0, 2a to 20,24 to 

30,18 to 30, 15 

160 sshape t$,0,10,30,18 

170 s$-"stapel-graphik":chor1,5,1,a 

$ 

180 x0=10:y0=-160:z2=30:3$="einnahmen 
”":gsosub290:3=Z 

190 color1,3,1 

200 x0= 100: yO= 160: z=12: a$g=" ahrung" 
:gosub290:s=s-z 

210 char1,x0/8, 6,"kleidung” 

220 x0=180:y0=-160:z=10:a$="wohnen”: 

gosub290:s=s-z 

230 x0=260:y0=-160:z= 3:3$="auto"”:go 

sub290:s=s-z 

240 getkeya$ 

250 color1,6,1 

260 x0O=> 40:y0=160:z= s:a$="" 

90 | 

270 char1,x0/8+2,(yO-i*3)/8-2, 


:gosub2 
"rest 


280 getkeya$:graphicü:end 

290 char1,x0/B, 5,8$ 

300 gshape b$,x0,yO 

310 for i-=-1 to z-2 

320 gshape t$,x0,yüO-i*3 

330 next:a$=-mid$i str$( z#100) ,2) 
340 char1,x0/8+2,( yO0-i*3)/8,3$ 
350 return 


PEEK & POKE 


Mit Poke und Peek kann jeder Commodore-Besitzer 
einiges anfangen. Auf dieser Seite — und im Heft 
verstreut — etliche nützliche Befehle 


Besonders der Anfän- 

ger hat oft große Schwie- 
rigkeiten, mit Poke-Be- 
fehlen zurecht zu kom- 
men. 
Viele Poke-Befehle, die 
interessante Möglichkei- 
ten der Programmierung 
bieten, sind im Handbuch 
garnicht erst erwähnt. 
Man muß sich durch Bü- 
cher, Zeitschriften käm- 
pfen, Bekannte und 
Freunde befragen usw., 
um einige ‚Poke-Tricks’ 
kennenzulernen. 

Mit einem Poke-Befehl 
können Sie direkt in eine 
Speicherzelle (auch Spei- 
cheradresse genannt) ei- 
nen bestimmten Wert hi- 
neinschreiben. Dadurch 
können Sie einiges im 
Computer beeinflussen, 
je nach Wertveränderung. 
Einige Möglichkeiten 
werde ich in dieser Liste 
vorstellen. 


Syntax des Poke-Befehls 
POKE Speicheradresse ‚X 
wobei X für eine Wertein- 
gabe steht. 

Zu den ersten Poke-Be- 
fehlen, die Sie kennen- 


gelernt haben, gehören 
sicher die Farb-Pokes 
53280 und 53281. 


Als Werteingabe können 
Sie jeweils eine Zahl zwi- 
schen O0 und 255 einset- 
zen. 

Andere Werteingaben 
sind übrigens generell 
beim Poken mit dem C64 
nicht erlaubt. 

Wird es dennoch versucht, 
wird dies mit der Fehler- 
meldung 

‚Illegal Quantity Error’ 
quittiert! 

Die Werteingabe ist auf 0 
bıs 255 beschränkt, weil 
der Rechner nur 8-stelli- 
ge binäre Zahlen (Binär = 


10 


nur 1 und O=anundaus), 
also maximal 256 ver- 
schiedene Zahlen verar- 
beiten kann. 

Nun gibt es beim C64 nur 
16 Farben und keine 256. 
Deshalb sind die Zahlen 
0-15 am sınnvollsten. 
So, wie sie auch imm Hand- 
buch vorgeschlagen wer- 
den. 

Bei Werten über 15, also 
16, 17, 18 usw., werden 


die verschiedenen Farben 


wiederholt. Bis zum Wert 
255! 

So daß z.B. auch die nun 
folgenden Werte richtig 


.sind: POKE 53280,X od. 


POKE 53281,X 


wobei X = eine der fol- 
genden Zahlen sein kann: 


Werteingabe (z.B.) Farbe 


240 = Schwarz 
241 = Weiss 
242 = Rot 
243 = Türkis 
244 = Violett 
245 = Grün 
246 = Blau 
247 = Gelb 
248 = Orange 
249 = Braun 
250 = Hellrot 
251 = Grau 1 
252 = Grau 2 
253 = Hellgrün 
254 = Hellblau 
255 = Grau 3 


Je nach Wertveränderung 
in einer Speicheradresse 
kann man also bestimm- 
te Funktionsweisen des 
Computers | 
oder abrufen. 


verändern 


Sıe können einen mo- 
mentanen Wert aus einer 
Speicheradresse auch he- 
rauslesen! 

Möglich wird dies durch 
den Befehl ‚PEEK’ 
Syntax: PRINT PEEK 
(Speicheradresse) 

Poken Sıe doch mal 


POKE 53280,245 (grüne. 


Rahmenfarbe). Sie haben 
den Wert 245 in die Spei- 


cheradresse geschrieben. 


Mit ‚PRINT PEEK (53 
280)’ können Sie diesen 
Wert herauslesen. 

Nun werde ich in knap- 
per Form einige nützliche 
Pokes, Peeks, Tricks und 
Routinen vorstellen. 
Fangen wir bei der Adres- 
se l an: | 

Dies ist eine wichtige 
Adresse, mit der man z.B. 
das Basic und auch das 
Betriebssystem (auch 
Kernal genannt) vom 


ROM (in welches man ja 
hineinschreiben 


nicht 


kann) ins RAM kopieren 
kann. 

Denn nur im RAM kann 
man den Speicher verän- 
dern (hineinschreiben). 
Deshalb muß der Spei- 
cherinhalt vom ROM 
(nur Lesespeicher) 
RAM kopiert werden. 
Wenn Sie Basic ins RAM 
kopieren möchten, tip- 
pen Sie folgendes ein: 


FOR X = 40960 TO 49 
152 : POKE X,PEEK(X) 
: NEXT X : POKE 1,54 
Wenn Sie Basic und das 
Kernal ins RAM kopieren 
möchten geht das mit: 
FOR X = 40960 TO 49 
152 : POKE X,PEEK(X) 
: NEXT X : FORX >= 57 
334 TO 65535 : POKE 
X,PEEK(X) : NEXT X: 
POKE 1,53 


Es dauert übrigens etwas, 


ins. 


bis der Kopiervorgang be- 
endet ist. 

Anmerkung: POKE 1,54 
schaltet Basic im ROM 
ab, bzw. ins RAM; POKE 
1,53 schaltet Basic und 
das Betriebssystem ins 
RAM; POKE 1,51 schal- 
tet den Zeichensatz ins 
RAM. 

Und nun weitere Tricks... 
Es ist möglich, eine Input- 
Anweisung ohne Frage- 
zeichen-Ausgabe zu pro- 
grammieren: POKE 19,1 
wieder normal: POKE 
19,0. 

Beispiel: 10 POKE 19,1; 
20 INPUT ,„Monat:”; 
MO$;30 POKE 19,0 


*Basic-Anfang**Basic- 
Ende* 

Mit Hilfe der Adressen 
43/44 können Sie den 
Basic-Programmanfang 
abfragen oder verschie- 
ben.-e Das Basic-Pro- 
grammende läßt sich mit 
Hilfe der Adressen 45/ 
46 erkunden. Startadres- 
se abfragen: PRINT 
PEEK (43) 
PEEK (44); Endadresse 
abfragen: PRINT PEEK 
(45) + 256 * PEEK (46) 
Wenn Sie den Basic- 
Programmanfang ver- 
schieben möchten, tip- 
pen Sie bitte folgendes 
ein: POKE 43,(BA-(INT( 
BA/256)*256)):POKE 
44,BA/256 

POKE (BA),0:NEW 
Setzen Sie für BA die 
neue Startadresse ein! 
Nun können Sie das Pro- 
gramm in den Speicher 
schreiben. Für das Pro- 
gramm sollten nur die 
Adressen 2048 bis 40 
959 benutzt werden! 


Die Endadrese des 
RAM’s ist unter der 
Adresse 55/56 abgespei- 
chert. Um Maschinenpro- 
gramme in diesem Be- 
reich vor Basic zu schüt- 


zen, kann diese Adresse- 


nach unten verschoben 


werden. 


(Adresse normalerweise: 


40960) 


+ 256 * 


A SERVICE _ nn 


Das hier vorgestellte Unterpro- 
gramm ‚Code‘ verschlüsselt sehr si- 
cher Ihre wertvollen Texte und 
Daten. Die Idee, dazu die ‚EOR‘- 
Verknüpfung zu wählen, geht auf 
H. Feichtinger, ‚Datenschutz mit 
dem 6502‘, MC 8/1984, p.61, zu- 
rück. Das dort veröffentlichte Pro- 
gramm ist in Maschinensprache für 
den Apple geschrieben; zum einen 
ist Assembler nicht jedermanns Sa- 


che, zum anderen ist die Handha- 


bng der Routine in der Praxis etwas 
umständlich, da man beispielsweise 
wissen muß, wo im Speicher der zu 
verschlüsselnde Text abgelegt ist. Es 
lag also nahe, die Idee in Basic zu 
übertragen, so daß sie auf jedem 
Commodore-Computer lauffähig 
und von jedem interessierten Pro- 
grammierer leicht in eigene Text- 
verarbeitungsprogramme eingebaut 
und für eigene Zwecke modifi- 


ziert werden kann. Der Assembler- 


befehl EOR verknüpft zwei Bytes 
bitweise;, das Resultat einer sol- 
chen Verknüpfung ist ‚1‘, wenn ein 
Byte ‚0° und das andere ‚1° ist. 
Dabei ist leicht einzusehen, daß 
diese Verknüpfung umkehrbar ist, 
d.h. daß nach dem zweiten Durch- 
lauf wieder das ursprüngliche 
Muster erscheint; die Ver- und Ent- 
schlüsselung ist also mit dem glei- 
chen Programm möglich. 


Beispiel: 

zu verschlüsseln: ‚m‘ = chr$(77) 
= binär 01001101 

Code: ,‚h‘ = chr$(72) = bimär 
01001000 

EOR-—- — — — — — — 
verschlüsselt: chr$(05) = binär 
00000101 

Code: ‚,H‘“ = chr$(72) = binär 
01001000 

EOR-— — — — — — — — 


entschlüsselt: ‚m‘ = chr$(77) = bi- 
när 01001101 


In der Praxis nimmt man als Code 
dann natürlich nicht einen einzel- 
nen Buchstaben, sondern einen gan- 
zen Codestring, der dann mit dem 
zu verschlüsseinden String ver- 
knüpft wird: 

dies ist eine testzeile ... 

geheimgeheimgeheimgeheim ... 


;, Im Hauptprogramm wird das Code- 


wort in c$ gelesen, dann wird 
mit dem zu verarbeitenden String 
f$ das Unterprogramm angesprun- 
gen. Nun werden aus fd und cB je- 
weils die zu verknüpfenden ASCII- 
Werte ın ‚a‘ und ‚b‘ isoliert, das Er- 
gebnis in ‚c‘ abgespeichert und zu 
g$ hinzugefügt. 

Da das Commodore Basic nicht 
über den Befehl EOR verfügt, wur- 
de erausc=(corb) and not (a and 
b) simuliert. 

Tippen Sie nun das Programm 
ein und experimentieren Sie damit 
etwa: 

10 input c$: rem eingabe des 
codewortes 

20 input f$: rem zu verschlüsseln- 
der string 


30 gosub 1000: rem zum codierpro- 
gramm 

40 print g$: rem drucke verschlüs- 
selten string s 

50 getxd: 1fx$=" ”+tH50: rem 
warte auf taste 

60 f$ = gS: rem bereit zur rück- 
wandlung 

70 goto 30: rem endlose schleife 
Dieses kleine Testprogramm liest 
das Codewort und einen String ein 
und springt damit zur Codierungs- 
bzw. Decodierungsroutine; das je- 
weilige Ergebnis wird ausgedruckt; 
Sie werden bemerken, daß der co- 
dierte String oft aus nicht druck- 
baren Zeichen besteht, bzw. aus 
Kontrollzeichen, die etwa die Bild- 
schirmfarbe bei VC 20 oder C64 
verändern. Sehr gut läßt sich dabei 
auch verfolgen, wie jeder String 
zunächst verschlüsselt und dann 
wieder in Klartext zurückverwan- 
delt wird. 

Praktischen Wert gewinnt dieses 
kleine Unterprogramm natürlich 
erst, wenn es beispielsweise in eine 
Textverarbeitung einebaut wird. 
Nehmen wir an, der Text wird von 


Cassette oder Floppy eingelesen 
und steht nun im Feld f$(1...max). 
Die Programmzeilen zur Verschlüs- 
selung könnten nun so aussehen: 

10 input c#: rem codewort holen 
20 for i=1 to max: rem schleife 

30 f$ = f$(i): rem zeile in f$ über- 
tragen 

40 gosub 1000: rem zum codier- 
programm 

50 f$(i) = g$: rem ergebnis in zeile 

i speichern 

60 next i: rem schleifenende 

Hier wird der ursprüngliche Text 
durch die bearbeitete Fassung er- 
setzt; möglich wäre auch, gs 
in ein eigenes Feld einzulesen, so 
daß beiden Texte zur Verfügung ste- 
hen: 

508%) gL 

Nach der Bearbeitung wird der ver- 
oder entschlüsselte Text weiterbear- 
beitet bzw. wieder abgespeichert, 
auf das entsprechende Medium, 
Cassette oder Disk, vorzugsweise 


' nach Löschung oder durch Über- 


spielen das ‚zu verbergenden‘ Tex- 
tes. Hierzu, ebenso zum Laden, 
wurde absichtlich kein Programm- 
vorschlag gemacht, da wohl jeder 
sein eigenes Textverarbeitungspro- 
gramm mit festgelegtem Einlese- 
bzw. Abspeicherungsformat der 
Texte und Parameter etc. bevor- 


zugt. 


Besonders gemein! 


Zu bemerken bleibt noch, daß 
die Sicherung natürlich um so bes- 
ser funktioniert, je länger das 
Codewort gewählt wird, und daß 
das System wirklich sehr zuverläs- 
sig arbeitet. Eine besondere ‚Ge- 
meinheit‘ besteht darin, daß in ei- 
nem Codewort auch nichtdruckbare 
Zeichen enthalten sein können; ein 
solches Wort kann dann natürlich 
nicht direkt eingegeben werden, 
sondern muß per Programm oder 
im Direktmodus erzeugt werden, 


z.B.: 
ch="abc”+chr$(1)+”xyz”’+chr$(2) 
Und bedenken Sie bitte: Ein ver- 
schlüsselter Text geht durch ein 
vergessenes Codewort für immer 
verloren! | 
PS: Das vorgestellte Programm ist 
ein Unterprogramm und somit nur 
durch Einbindung in ein vorliegen- 
des Textprogramm, oder mit oben 
aufgezeigter Demo lauffähig! 

Jürgen H. Schmid 
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TECHNISCHE DATEN: 


System: Rollkugel 

Sensoren: 

CPU: 

Auflösung: Rollkugel: 
Encoder: 


Geschwindigkeit: 


Lebensdauer: 

Gewicht: ca. 170g 
Stromversorgung: 5 V +5% 
Strom: | 25 mA 


Eine Maus ist in der Computerbranche ein präzises Eingabegerät. 
Seit kurzem ist endlich eine Maus für den C 64/128 auf dem Markt recht 
preiswert erhältlich. 


Eine Maus ist besonders bei Zeichen- 


. und Malprogrammen empfehlens- 
wert. Lassen sich doch Punkte, 
Linien etc. viel genauer positionie- 
ren, als dies mit einem Joystick 
möglich ist. Ebenso lassen sich 
Radien und Kurven genau zeich- 
. nen. Man muß nur die Maus an 
Port 2 anschließen und auf einer 
glatten und harten Unterlage ent- 
sprechend bewegen. Es muß aller- 
dings vorher ein entsprechendes 
Programm, mit Joystick-Abfrage 


Port 2, geladen und gestartet wer- 


MAUS LÄSST SICH PRÄZISE 
FÜHREN 


probiert und war angenehm über- 
rascht, ganz präzise ließ sich die 
Maus führen und was noch wichti- 
ger ist, sie hat sich mit allen mir 

zur Verfügung stehenden Program- 
men “vertragen‘‘. Wenn man an 

den Joystick als Eingabegerät ge- 
wöhnt war, so wird jetzt jedem klar 
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E15 


werden, wie nervtötend dies ei- 
gentlich war. Sicher muß man sich 
an die Maus gewöhnen, aber dies 
geht recht schnell. Die Bewegungs- 
übertragung ist so genau, dafs selbst 
die geringsten Bewegungen sofort 


auf dem Schirm sichtbar sind. Das 


macht sich besonders dann bemerk- 
bar, wenn man “freihändig‘“ waage- 
rechte oder senkrechte Linien zie- 
en will, da sieht man deutlich sei- 
“ruhige Hand“. Das ist aber kei- 
EEE RTE als schlecht zu bewerten, 
denn die meisten Programme verfü- 
gen über den “Line-Befehl‘. Damit 
lassen sich gerade Linien ziehen. 


Aber auch ohne diesen Befehl las- 
sen sich, allerdings nur waagerech- 
den. Ich habe einige Programme aus- 


te und/oder senkrechte Linien zie- 
hen. Man muß nur die Maus an 
einem geraden, ca. 10 mm starken - 
Brett oder Leiste vorbeiführen. Da- 
bei sollte die Maus fest anliegen, seit- 
lich für senkrechte und vor “Kopf“ 
für waagerechte Linien. Wem dieses 
Brettchen als nicht “stilgerecht‘ vor- 
kommt, der kann dieses Brett auch 


opt. Rotationsencoder 
MB 88201P-201N (4 Bit CPU) 


0.52 mm / Intervall 
30 Intervalle / Umdrehung 


max. 200 mm / sec 
ca. 30 km bei 200 mm / sec 


elektronisch nachempfinden. Das 
Brett sind in diesem Falle zwei zu- | 
sätzliche Taster, welche in die Maus 
eingebaut werden sollten. Sehen | 


. Sie sich dazu Bild 2 (Schaltungsaus- 


zug) an. Dort sind im oberen Teil 
der Schaltung die beiden Rotations- 
Encoder (Leuchtdioden, Fototransi- 
stor) zu sehen. Diese sind für die 
Übertragung der X- bzw. Y-Koordi- 
naten verantwortlich. Da beide 
Encoder gleichzeitig arbeiten, wer- 
den alle Bewegungen der Maus über- 
tragen. Ein eigener Microprozessor 


. berechnet aus den anfallenden 


BASTLER- GESCHICK 
GE FRAGT | 


Impulsen die entsprechenden Koor- 


dinaten und übergibt sie dem Rech- 
ner,der sie dann auf den Bildschirm 


bringt. Schaltet man nun z.B. den 
Encoder für “senkrecht Lesen“ ab, 


so werden alle Bewegungen der 
Maus als waagerechte Linie “er- 
kannt“ und entsprechend gezeich- 
net. Das Gleiche gilt in umgekehr- 
tem Sinne für den Encoder “waage- 
recht Lesen‘. Dies erreicht man, in- 


TIPS & TRICKS. 


ÄNDERUNGSVORSCHLAG | | SPEICHERPLATZERWEITE- 
zur Commodore-Maus B= RUNG FÜR DEN 


DRUCKER RITEMAN F+ 


Der Pufferspeicher ist bei diesem 
Drucker nur ca. 2KByte groß. 
Dies ist doch etwas wenig, läßt 
sich jedoch mit einem Hand- 
griff ändern. 

Wenn Sie auf recht preiswerte 
Art und Weise Ihren Pufferspei- 
cher erweitern wollen, so sollten 
Sie sich erstmal ein neues RAM 
(Schreib-Lesespeicher) besorgen. 
Ich habe den Typ D4364-15]1 
von NEC für diesen Zweck ein- 
gesetzt. Dieses RAM hat 8K- 
Byte Speicherplatz und kostet 
nur DM 7.30. Das RAM HM 
6264 Ip-15 ist Pinkompatibel 
und kann ebenfalls eingesetzt 
werden. Besorgungsschwierig- 
keiten dürften nicht auftreten, 
da diese RAM’s Standard und in 
fast jedem Elektronikladen er- 
hältlich sind. 

Nun zum Einbau. Dieser gestaltet 
sich recht einfach und dürfte 
auch von jedem Nicht-Techniker 
erfolgreich durchgeführt werden. 
Sie müssen nur die obere Klappe 
öffnen (nur 1 Schraube!). 


| nu 
: 7 Wisclirkesee 
ee BORSNISARER"* 
. SCNAltungsauszug ZEICHENSAETSE 
: ["e’tsaneee] i 


DOIP-SCHALTER 


P/B 


dem man die beiden Taster 3 und 4 
zusätzlich einbaut. Die Taster sind 

“Schließer‘ und liegen über den on 
Leuchtdioden, das heißt, daß im ge- Unten links sieht man die Dip- 


Detailansicht RITEMAN F+ 


drückten Zustand der Lampenstrom schalter, darüber liegen 3 grö- 

2 kurzgeschlossen wird. Also ist der Bere IC’s (Integrierte Schaltkrei- 
| entsprechende Encoder auf “Aus“ se). Das dritte IC von links ist 
| N geschaltet. Wenn Sie sich zu diesem unser auszutauschendes RAM, 


Weg entschließen, so sollten Sie über wenn es die Bezeichnung HM 
viel bastlerisches Geschick verfügen 6116 P-4 trägt. Hebeln Sie dieses 


und Sie sollten äußerst vorsichtig RAM vorsichtigt aus der Fassung 
zu Werke gehen. Denn die Maus ist und stecken Sie statt dessen das 
ein Präzisionsinstrument und ist neue RAM mit der Kerbe nach 
mechanisch sowie elektrisch sehr oben (Skizze) ein. Es sind nun 
empfindlich und Ihre Garantie ist nicht mehr die oberen zwei 
schon bei dem Öffnen des Gehäu- Steckkontakte auf dem Sockel 
ses verspielt. sichtbar. Nun müssen Sie nur 


noch den Stecker rechts oben 
—————————— — ——— neben dem neuen RAM von 
ZWEI TAGE LIEFERZEIT rechts nach links umstecken, so 
— m 0 daß jetzt der rechte Stift sichtbar 

ist. Das war es schon. Durch die- 


Eine Ansicht (mit dieser Maus ge- se Maßnahme steht Ihnen der 
zeichnet), sowie ein paar technische Rechner viel eher wieder zur Ver- 
Daten zeigt Bild 1. fügung, denn die Daten oder der 
Die Maus wird von der Firma Reis- Text, welcher gedruckt werden 
Ware in 5584 Bullay zum Preis von soll, stehen nun nicht mehr im 
DM 139,— angeboten.(Ein Anruf Arbeitsspeicher des Rechners, 
und die Maus war 2 Tage später da!!) sondern im Drucker. Da gehören 
 P/B sie ja auch hin. P/B 


13 


ec TEST | 


STARTEXTER: 
WIRKLICH EIN STAR? 


Ohne Zweifel, die Softwarewelle für den PC 128 rollt unaufhaltsam. 
Auffällig hierbei ist, daß so gut wie keine Spiele angeschwemmt kommen, 
sondern Programme zum ernsthaften Arbeiten mit dem kleinen PC von 
Commodore angeboten werden. Im zweiten Teil unseres Textprogramm- 
Tests nahmen wir den StarTexter vom Sybex-Verlag unter die Lupe. 


Wer nach dem Öffnen der Verpak- 
kung die Programmadiskette des 
StarTexters in Händen hält, wird 

in großen Lettern gemahnt, vor jeg- 
licher Arbeit mit dem Programm 
zuerst eine Sicherheitskopie an- 
zufertigen. 

Hierzu wird ein Kopierprogramm 
auf der Diskette mitgeliefert. Also 
galt unser erster Schritt dieser 
Sicherheitskopie, welchen wir aller- 
dings sogleich auch wieder bereuten. 
Denn was da als Kopierprogramm 
offeriert wird, spottet jeder Be- 
schreibung. Neunzehn Programmzei- 
len, welche in primitivstem Basic 
verfaßt sind und außerdem zur 
Hälfte Print-Anweisungen enthal- 
ten, ließen bereits das Schlimmste 
befürchten. Diese Befürchtungen 
wurden jedoch noch bei weitem in 
den Schatten gestellt. Inklusive 
Vorformatieren (noch nicht einmal 
hierzu war dieses Miniprogramm in 
der Lage) ist der arme Anwender 
sage und schreibe eine Stunde und 
drei Minuten mit der Sicherheits- 
kopie beschäftigt. Warum das so 
lange dauert? Nun, ein Blick auf das 
Kopierprogramm-Listing gibt so- 
gleich die Antwort: Es wurde unver- 
ändert von der 64er Version von 
Starlexter übernommen, verwendet 
dessen Diskettenbefehle, liest und 
schreibt File für File einzeln, ohne 
einen Bruchteil des 128er Speichers 
zu verwenden. Das frißt natürlich 
Zeit und Lust, denn wer nach über 
einer Stunde und 92mal Diskette 
rein — Diskette raus mit der Kopie 
fertig ist, muß für diese Übung 
schon sehr viel Computerenthusias- 
mus vorweisen. Der Gag jedoch folg- 
te auf dem Fuße: Die erstellte 
Sicherheitskopie bootete noch nicht 
einmal ordnungsgemäß nach Ein- 
schalten des Rechners, sie mußte 
„von Hand‘ geladen werden. 
Solchermaßen vorbelastet gingen 
wir schon mit etwas Mißmut an den 
Test, unsere Gesichter erhellten 

sich jedoch wieder beim Anblick 
der versprochenen Möglichkeiten 
von Starlexter. Das Anfangsbild war 
für unseren Geschmack zwar etwas 
zu bunt ausgefallen (alleine ein gan- 
zes Untermenü ist den Farbeinstel- 
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lungen gewidmet), doch vielleicht 


ibt es ja auch Anwender, die bei 


ihrer Arbeit gerne in den Farbtopf 
greifen und die herrlichsten Gelb-, 


Grün-, Rot- und Blautöne zur Text- 


verarbeitung benutzen. 
Nach einem Blick in das 136 DIN-A- 
5 Seiten umfassende Handbuch 


£ x 


wollten wir eigentlich mit der Arbeit 
beginnen, dies entpuppte sich je- 
doch als etwas langwierige Übung. 
Abgesehen von der Tatsache, daß 
beim Inhaltsverzeichnis schlicht die 
ersten vier Kapitel vergessen wur- 
den und das Buch scheinbar erst auf 
Seite 91 beginnt (so steht das wirk- 
lich drin!), kamen die Funktionsbe- 
schreibungen doch etwas unüber- 
sichtlich und durcheinandergewür- 
felt zum Abdruck. Nachdem im er- 
sten Kapitel (es gibt trotz gegenteili- 
ger Meinung des Inhaltsverzeichnis- 
ses doch eines) zwar die Grundbe- 


griffe von Textprogrammen auch 
für den absoluten Computerlaien ver- 


ständlich dargestellt werden und so- 
gar eine Anleitung zum Eigenbau ei- 
nes Userport-Druckerkabels gegeben 
wird, fällt diese Anleitung anschlie- 

ßend quasi mit der Tür ins Haus. 


Etwas unübersichtlich erscheinen 
nun die einzelnen Funktionsbeschrei- 
bungen des Programmes. Unüber- 
sichtlich deshalb, weil der Erstan- 
wender ständig dazu gezwungen ist, 
zurückzublättern und nachzusehen, 
welche Funktion nun überhaupt be- 
schrieben wird. Ab und zu werden 
auch Befehle genannt, ohne über- 
haupt mitzuteilen, wie diese aufzu- 
rufen sind. _ 

Nun zum Programm selbst: Auf 
dem Papier liest es sich schon präch- 
tig, was StarTexter alles beherrschen 
soll. Von der eigenen Zeichendefi- 
nition über wahlweise Schriftarten 
bis zu Rechen- und Programmier- 
möglichkeiten während der Textbe- 
arbeitung wird hier einiges verspro- 
chen, um das Benutzerherz höher 
schlagen zu lassen. Doch nichts ist 
so einfach, wie es sich liest. 

Zuerst muß nämlich die Installation 
des Programmes (das hört sich 
schon sehr professionell an) vorge- 
nommen werden. Hierzu wird dann 
die anfangs schon erwähnte Sechzig- 
Minuten-Kopie benötigt, denn die 
Originaldiskette ist schreibgeschützt 
und kann daher nicht zur Abspei- 
cherung der Einstelldaten benutzt 
werden. Wer sich jedoch die Hange- 
lei mit dem Kopierprogrämmchen 
sparen will, fertigt seine Arbeits- 


kopie’ besser mit dem bei Commo- 


SELBST COMMODORE KANN 


ES BESSER 


dore Laufwerken auf der Demo- 
diskette mitgelieferten Kopierpro- 
gramms “SD.BACKUP.C64“ an. 
Dieses erledigt die Kopie innerhalb 
von 7 Minuten, das ist immerhin 
fast um das Zehnfache schneller. 
Wohlgemerkt, dieses Programm 
läuft im 64er Modus mit den Ar- 
beitsgeschwindigkeiten der 1541 
und ist doch dem 128er Kopier- 
programm von StarText um Meilen 
überlegen, außerdem bootet die 
jetzige Kopie auch wenigstens | 
ordnungsgemäß. Beim Sybex Verlag 
sollte man sich doch etwas besin- 
nen und auf diese Alternative ver- 
weisen, statt den Erstanwender 

mit einem einstündigen Disketten- 
wechselmarathon zu nerven. Mit 
der so erstellten Kopie ist nun das 
Arbeiten mit den Einstelldaten mög- 
lich. Die Druckeranpassung ist | 
schnell erledigt, sofern sich der Be- 
nutzer nicht im Besitz eines ausge- 
sprochenen Exoten befindet, jedoch 
auch hierfür sollten die Einstellmög- 
lichkeiten genügen, es ist lediglich 
ein etwas größerer Arbeitsaufwand 
vonnöten. Bei alledem setzt Sybex 


allerdings schon gewisse Grund- 


TEST 


kenntnisse voraus, denn im Hand- 
buch wird beim Kapitel “Drucker- 
anpassung“ lakonisch auf das jewei- 
lige Gerätehandbuch verwiesen. 
Sind die Einstelldaten auf die Pro- 
grammdiskette geschrieben (dies ge- 
schieht automatisch), so werden 

sie bei jeder weiteren Benutzung 
von Starlexter übernommen. Diese 
angenehme Verfahrensweise ist al- 
lerdings lediglich hierfür möglich, 
für alle anderen Voreinstellungen 
müssen die entsprechenden Daten 
bei erneuter Arbeit mit dem Pro- 
gramm wieder auf den gewünschten 
Standard gebracht werden. 


DIN-TASTATUR NOCHMALS 


UMBELEGT! 


Einen gänzlich seltsamen Weg be- 


schritt Sybex bei der Tastaturbele- 
gung: Obwohl der 128er bekannt- 
lich per Tastendruck auf die kom- 
plette .DIN-Tastatur umzustellen 
ist, wurden die Umlaute auf die 
Funktionstasten gelegt. Wer nun 
eine DIN-Tastatur simulieren will, 
kann dies lediglich durch Einstellen 
eines bestimmten Untermenüpunk- 
tes im Programm selbst, wie gesagt, 
bei jeder Benützung aufs Neue. 
Diese Simulierung ist dann auch 
noch unvollständig: Zwar wurden 


Z und Y vertauscht und die Umlaute 


auf die richtigen Plätze gelegt, 

aber damit war auch alles schon zu 
Ende. Doppelpunkt, Bindestrich, 
Fraszeichen und all die anderen 
kleinen Unterschiede der DIN- zur 
ASCII-Tastatur bleiben auf ihren 
angestammten ASCII-Plätzen, so 

daß einem Umsteiger von der 
Schreibmaschine zum Computer er- 


hebliche Gewöhnungszeit abverlangt 


wird. Gerade bei einem Computer 

wie dem 128er aber stellt dies eine 

als relevante Käuferschicht 
ar. 


Die Steuerung des Programms erfolgt 


über mehrere Menüs, die mittels der 


CONTROL-Taste in Verbindung mit 
einer Funktionstaste aufgerufen wer- 


den (warum eigentlich so umständ- 
lich?). Hier wird allerdings deutlich, 
daß sehr viele Einstellmöglichkeiten 
zum Schreibbetrieb vorhanden sind, 
welche aber zum Teil zur Unüber- 


sichtlichkeit des Programmes führen, 


da vor allem am Anfang sehr oft im 
Handbuch nachgeschlagen werden 
muß. | | 
Natürlich ist es mit dem Programm 
möglich, fett, klein, hoch oder tief 
zu schreiben, auch das Unterstrei- 
chen darf nicht fehlen. Dies gehört 
auch inzwischen zur Mindestausstat- 


tung eines Textprogrammes. Wirklich 


neu und unwahrscheinlich praktisch 
ist dagegen die Möglichkeit, von der 


Programmdiskette herunter einen 
von fünf Schriftsätzen zu wählen. 
Das Einladen der Schriftsätze ge- 
schieht über den Programmiermodus 
in der Textbearbeitung. Dieser wird 
mittels der Control-Taste aufgerufen 
und ein Programmstop veranlaßt. 


Nun befindet sich der Anwender wie- 


der im Basic und kann wie gewohnt 
Befehle ausführen lassen, z.B. Print- 
anweisungen, während im Hinter- 
grund das Programm darauf lauert, 
wieder aufgerufen zu werden. 

Wird nun mit einem Load-Befehl ei- 
ner der Zeichensätze ausgewählt 
und in die Texterfassung zurückge- 
sprungen, erscheint dieser Zeichen- 
satz und wird nun statt des norma- 
len verwendet. 

Setzt der Anwender an den Anfang 
seines Textes die Druckeranweisung 
für Grafikausdruck, werden die neu- 
en Zeichen auch ausgegeben. So 
kann z.B. einem Brief ein origi- 
nelles und ungewöhnliches Er- 
scheinungsbild verpaßt werden, 
welches sich wohltuend vom Ein- 
heits-Computerdruck abhebt. 
Uneingeschränktes Lob verdient 
auch die Rechenfunktion während 
der Texterfassung. In Direkteingabe 


wird die Rechnung in den Text ge- 


TASCHENRECHNER 
FUNKTIONIERT PRÄCHTIG 


schrieben, mittels der Control- und 


=Taste wird dann das Ergebnis 
direkt darunter gesetzt. So ist es 
leicht möglich, ohne Verwendung 
eines Taschenrechners z.B. Liefer- 
scheine oder sonstige Belege nur mit 
dem Textprogramm zu bearbeiten. 
Auch das Suchen und Ersetzen ge- 
schieht bemerkenswert problemlos 
und einfach. Die gewünschte Buch- 


.stabenkombination, es kann sich 


um Wörter genauso handeln wie um 


‚einzelne Buchstaben, wird lediglich 


eingetippt, ein =Zeichen dahinter, 
sowie das neue Wort eingesetzt. 
Mittels der Control-Taste, in 
Verbindung mit S wie Suchen, _ 
wird nun der Text nach dem Such- 
begriff durchforstet. Hier gefiel uns, 
daß nicht mit Brachialgewalt alles 
umgeändert wird, sondern der Cur- 
sor bei jedem Wort, in welchem er 
fündig wurde, stehenbleibt und auf 
Reaktion seitens des Anwenders 
wartet (schon wieder in einer ande- 
ren Farbe). Dieser kann nun mittels 
der Stop-Taste quittieren oder mit 
Return das Einverständnis zum Er- 
setzen geben. Dies stellt zwar die 
langsamere, mit Sicherheit aber die 
bessere Lösung dieser Funktion dar. 
Lustig wird es, wenn das Kapitel 
“Textbewegung“ zur Sprache 
kommt. Denn in welcher Form die- 


se verwendet werden, ist anfangs 
doch etwas verblüffend. Sie sind 
gewohnt, mittels der >Home<- 
Taste in das obere Bildschirmeck 
zu kommen? Falsch, bei StarTexter 
springt der Cursor an den Textan- 


fang. Versuchen Sie die selbe Taste 
in Verbindung mit >Shift<, wird 
die Überraschung nicht weniger 
groß sein. Sie landen nämlich am 
Textende. Mit der Run/Stop-Taste 
springen Sie an das nächste Wort- 
ende, in Verbindung mit >Shift< 
ein Wort zurück. Interessant wäre 
es lediglich zu erfahren, wer hier 
so um die Ecke gedacht hatte. 


FAZIT 


"Alles in allem handelt es sich 


bei StarTexter um ein durchaus 
ernstzunehmendes Arbeitspro- 
gramm. Der Erstanwender wird 
zwar seine kleinen Anfangsschwie- 
rigkeiten bei der Bedienung besit- 
zen, aber offensichtlich setzt Sybex 
vor allem auf diejenigen, die von 
ihrem 64er auf den nächstgrößeren 
Rechner umgestiegen sind und da- 
her schon mit der Bedienung des 
Programmes vertraut sind. Die zu- 
sätzlichen Funktionen, welche 
StarTexter bietet, stellen mit Sicher- 
heit eine Bereicherung der Textbe- 
arbeitung dar. 2° 5 
Völlig unverständlich hingegen 
bleibt, warum hier offensichtlich im 
Ex und Hopp-Verfahren die 64er- 
Version des Programmes auf den 
128er umgestrickt wurde. Es mutet 
schon etwas seltsam an, wenn z.B. 
das StarFont-Unterprogramm nur 
im 64er Modus nutzbar bleibt, ob- 
wohl dies mit Sicherheit auch an- 
ders möglich wäre. Den Gipfel die- 
ser Eilumarbeitung stellt jedoch mit 
Sicherheit das Handbuch dar. Denn 
bei diesem machte sich Sybex noch 
nicht einmal die Mühe, es komplett 
auf den 128er umzuschreiben. Da 
erfährt der erstaunte Anwender z.B. 
davon, daß seine Funktionstasten 
auf der 128er Tastatur von oben 
nach unten verlaufen (leider haben 
wir diese Tasten auf unserem PC 
128 nicht gefunden), Programme 
im 128er Modus mit >Load“...‘‘,8< 
geladen werden müssen und seiten- 
weise mehr solcher Fehlinformatio- 
nen. Dies alleine wäre ja nicht wei- 
ter schlimm, wenn nicht Funktions- 
beschreibungen gegeben würden, die 
ja im Starlexter 64 berechtigt sein 
mögen, beim 128er-Programm aber 
überhaupt nicht vorhanden sind. 
Es bleibt zu hoffen, daß bei Sybex 
etwas gegen diese Kinderkrankhei- 


‘ ten getan wird. Es wäre schade um 


ein sonst eigentlich geglücktes 
Programm. Thorsten Seibt 
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TIPS & TRICKS 


Die Zahl der C16-Benutzer steigt 
und steigt. Nach neuesten Informa- 
tionen wird in absehbarer Zeit die 
300 000er-Grenze erreicht werden. 


. Für die COMMODORE WELT 


bedeutet dies, sich noch mehr ein- 
zusetzen, damit der Computer 
nicht nach kurzer Zeit im Schrank 
vergammelt. 

Aufruf an alle C16/116-Besitzer: 
Meldet Euch doch einmal mit ein 
paar Zeilen oder einem kurzen 
Anruf am Mittwoch zwischen 16 
und 20 Uhr. 


Warnung an alle Floppybenutzer 
und solche, die es werden wollen: 


Der C16/116 ist hervorragend auf 
die Benutzung der Floppy einge- 
richtet, aber es ist auch Vorsicht 
geboten. Zwei Dinge sind vor allem 
zu beachten: | 

1. Verbinden Sie C16 und Floppy 
nur, wenn beide ausgesteckt sind! 
Nicht nur ausgeschaltet! Es kann 
sonst zu Potentialunterschieden 
zwischen den Geräten kommen, die 
beide zerstören können. Das Gehäu- 
se der Diskettenstation ist sehr gut 
geerdet, der C16 mangelhaft. Also 
zunächst verbinden und dann erst 
C16 und Floppy ans Netz anschlie- 
ßen Ä 


2. Vorsicht beim Listen, wenn die 
Floppy eingeschaltet ist. Man kann 
nämlich mit der Tastenkombina- 
tion COMMODORE-Taste & RUN/ 
STOP das erste Programm von Dis- 
kette einlesen und starten. Wenn 
Sie aber gerade ein Programm schrei- 
ben und sich das Listing mit der 
COMMODORE-Taste verlangsamen, 
um es am richtigen Punkt mit der 
RUN/STOP-Taste anzuhalten, kann 
es passieren, daß die COMMODORE- 
Taste nicht rechtzeitig losgelassen 
wird, und Sie damit Ihr Programm 
zerstören, weil Sie ja ein anderes 
laden. 


TIPS FÜR UMSTEIGER 


Wer vom C64 auf den C16 umsteigt 


oder ihn als Zweitgerät verwendet, 
sollte sich ein paar Unterschiede 
einprägen, die beim Lesen des 
Handbuches nicht gleich auffallen: 
Im Gegensatz zum C64 kann man 
auf dem C16 mit 88 Zeichen pro- 
grammieren. Der Listbefehl funktio- 
niert auch vom Programm aus 


(ohne Abbruch). Mit RUN“HEX“ 
lädt man das Programm “HEX‘ und 
startet es. RESTORE geht auch mit 
Zeilennummer. RUN/STOP- 
RESTORE gibt es nicht. Man kann 
aber durch Drücken des RESET- 
Knopfes bei gleichzeitigem Drücken 
der RUN/STOP-Taste in den Moni- 
tor (praktisch immer) und mit ‘X‘ 
wieder ins BASIC gelangen. Wer 
sich vom gewohnten Blau des C64 
nicht trennen kann, soll mal folgen- 
des eingeben (im Direktmodus, 
Groß/Klein-Schrift): 
coLO,2,3:coLl,14,6:coL4,7,4 


Nach RETURN hat man dann den. 


gewohnten Zustand (mit der 
Luminanz kann man noch etwas 
spielen). 


FENSTERLN MIT DEM C16 


Wenn ein Computer schon so schö- 


ne Möglichkeiten bietet wie die Ein- 
richtung von Bildschirmfenstern 
(auf gut Englisch “Windows‘), so 
sollte eigentlich etwas mehr dar- 


commodore welt 


über im Handbuch stehen. Jeder 
hat sicher schnell heraus, wie man 
mit ESC&T die obere linke und 
mit ESC&B die untere rechte Ecke 
festlegt. So mancher denkt sich je- 
doch sicher, wozu das gut sein soll. 
Im Direktmodus wird man es 
hauptsächlich anwenden, um sich 
Teile eines Listings festzuhalten, 
während man ein anderes Pro- 
gramm lädt, um die festgehaltenen 
Zeilen zu übernehmen (Cursor auf 


‘ die Zeile und RETURN) oder zu 


vergleichen. Wie man dies aber im 
Programm einsetzt, wird nicht er- 
läutert. Es gibt zwei Möglichkeiten: 
Man kann den Cursor durch die 
Cursor-Steuerzeichen an die ge- 
wünschte Position bringen und 
dann mit PRINT CHR$(27)*“T“ 


___} bzw. PRINT CHR$ET)“B“ die 


Ecken festlegen. Aber Vorsicht! 
Verwenden Sie zum Possitionteren 
nicht die CHAR-Funktion, diese 
hebt das Fenster wieder auf. Es 
geht jedoch auch ganz einfach, wie 
folgendes DEMO-Programm zeigt. 
In den Speicherstellen 2021-2024 
stehen die Positionen der Ecken. 
POKEt man die entsprechenden 
Werte dort hinein, steht das Fenster 
da, wo man will. 

Aber erst nach der nächsten PRINT- 
Anweisung. 


DEN FEHLER IN DIE 


FALLE LOCKEN 


Vor allem Anfänger haben Schwie- 
rigkeiten, den TRAP-Befehl richtig 
einzusetzen. Man kann damit auf- 
tretende Fehler abfangen. Das fol- 
gende DEMO-Programm zeigt die 
Anwendung. Man kann in Abhängig- 
keit vom Wert der System-Variablen 
ER auch noch andere Programm- 
schritte einbauen (IF ER=.... THEN 
GOTO ...). 


fensterdemo =Szszm zz == sem =mme=m== 


(p) 7/86 


c1$=chr$(147):rem bildschirm loeschen 
fa$=chr$(130):rem flasch an 


em$=chr$(27)+chr$(77):rem esc®n (scrollmodus aus) 


100 el$=chr$(27)+chr$(76):rem escä&l (scrollmodus ein) 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


240 
250 
260 
270 


z1$=chr$(113):z2$=chr$(119) 

z3$=chr$(115) 

colorO0,2,4:color4,2,4:color1,2,0 

print c1$;:print em$ 

fori=1tol000:print fa$+z1l$;:next 
tx=2:ty=3:bx=37:by=22:gosub280 

printcl$"fenster 1":fori=1to 750:print z2$;:next 
getkeya$ 

tx=9:ty=9:bx=29:by=19:gosub280 

print c1$"fenster 2":fori=1to 210:print z3$;:next 
getkeya$:print el$ | 
fori=1tolO:print:fort=1t090:next:next 


char,0O,0,chr$(147):rem hebt fenster wieder auf und 


loescht bildschirm 
end 


rem rk kai 
rem *** unterprogramm fenster *** 


rem Kara aka aka ka ak ak 


poke2021,by:poke2022,ty 
poke2023,tx:;poke2024,bx:print:return 


ae a ee a a 
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20 
30 


rem == trap-demo =================== 
rem (p) 7/86 commodore welt = 
LeM =====-=--.=-=-=2=2====20,20=---222..2.22.-= 
rem (c) 6/86 commodore welt = 
rem c16+c116+plus4 = 


trap 210:rem bei floppy-gebrauch 
print"programm nicht vorhanden":dload"gibt's nicht":gosub1l80 
trap 220:rem andere fehler 

print"run/stop druecken" 

getkeya$f:gosubl80 

print"durch null teilen":printl/0O:gosubl80 
print"sqr(-1)":printsqr(-1):gosubl80 

end | 

for t=1 to 900:next:return 

end 

rem ***%*%* unterprogramm trap **** 

print ds,ds$:print:resume next 


print er,err$(er) :resume next 


TIPS & TRICKS 


LISTINGS | 


BUCH- 


HALTUNG 


Die Idee zu diesem Programm gründet auf der Er- 
kenntnis, daß viele, sehr viele Leute von doppelter 
Buchhaltung wenig wissen, mit einem solchen Pro- 
gramm also auch wenig anfangen können. 
Außerdem, brauchen die Haushaltskasse und die 
verschiedenen Bankkonti zur Kontrolle wirklich 
eine Finanzbuchhaltung? 

Mir jedenfalls fehlte ein einfaches Programm zur 
laufenden Überprüfung meiner Finanzen, und da 
der 80-Zeichen-Modus eine vernünftige Darstellung 
zuläßt, liegt hier nun das Resultat vor. 


GERÄTE-KON en 


Commodore C 12 
Disk-Drive C Ku (1570, 1541) 
Brother CE-51 mit Märki-Lenz Interface 


Optional: 
Commodore-Drucker am seriellen Port 
Centronics-Drucker am Userport 


Bei fremden Druckern kann es möglich sein, daß 
einige Steuersequenzen angepaßt werden müssen. 
Dies dürfte aber keine Schwierigkeiten machen, da 
ee im Programm leicht zu finden 
sind. | 

Es empfiehlt sich, das Programm vollständig zu 
übernehmen und erst später den Drucker anzu- 
passen. | 

Ein Software-Interface für Centronics-Drucker am 
Userport wird mit der Zeile 5140 automatisch ge- 
laden, wenn Sie ein solches Programm mit dem 
Namen ‘buch.hex‘ auf der Diskette speichern. Falls 
Sie einen Commodore-Drucker verwenden oder 
ein Hardware-Interface Ihr Eigen nennen, muß die- 
se Zeile natürlich weggelassen werden. 


PROGRAMM-BESCHREIBUNG 


Wenn Sie das Programm abgetippt haben, sollten 
Sie es erst einmal sichern. Anschließend empfiehlt 
‘es sich, eine Diskette zu formatieren und das Pro- 
gramm auf diese leere Disk zu kopieren. Im Laufe 
der Zeit wird ‘Buchhaltung‘ viele Files erzeugen, 
es ist also genügend Platz vorzusehen. 

Wenn Sie nun das Programm starten, gelangen Sie 
automatisch in den Menü-Teil ‘Konto eröffnen‘. 
Geben Sie also einen geeigneten Konto-Namen ein 
und drücken Sie RETURN‘. Sie sollten sich jetzt 
im Menü befinden, von wo Sie jeden Programm- 
Teil erreichen können. 

Eine Besonderheit gibt es im Zusammenhang mit 
der "HELP“-Taste: 

Sollten Sie eine Bedienungsanweisung auf den Bild- 
schirm bringen wollen, so können Sie deren Text, 
z.B. mit einer Textverarbeitung, als sequentielles 
File mit den Namen ‘BUCH.HLP‘ auf der Diskette 
speichern. 

Wann immer Sie nun die *HELP‘-Taste drücken, 
können Sie die Informationen wieder ansehen. 
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MENÜ 


Folgende Menü-Punkte stehen Ihnen zur 
Verfügung: 


Fl Konto führen F2 Konto listen 
F3 Konto wählen F4 Konto drucken 
F5 Übersicht F6 Konto eröffnen 
F7 Datum F8 Ende 


KONTO FÜHREN 


Sie gelangen in ein Buchhaltungsblatt mit den ge- 
wohnten Spalten. Das Datum brauchen Sie nicht 
einzugeben, es wird automatisch übernommen. 


Da Buchungen sortiert nach aufsteigendem Datum 


eingetragen werden sollen, können Sie bei Bedarf 
mit der ‘F3‘-Taste das Datum erhöhen. Fehler 
können dabei nicht entstehen, das Programm er- 
kennt Monatsgrenzen, stellt das Datum dabei rich- 
tig und eröffnet bei Bedarf ein neues File (die 
Daten werden monatlich gespeichert). 

Eine fehlerhafte Buchung können Sie mit der ‘F1‘- 
Taste löschen. Das gilt aber nur für die letzte 
Buchungen! Sollten Sie Fehler erst später entdecken, 
müssen Sie eine Korrekturbuchung vornehmen oder 
alle folgenden Buchungen löschen. 

Die Soll- und Haben-Spalte erreichen Sie, indem 

Sie beim Buchungsbetrag Einnahmen als positive 
und Ausgaben als negative Zahlen eintragen. Dabei 
ist es nicht notwendig, positive Werte mit dem 
Pluszeichen zu kennzeichnen. 


KONTO LISTEN 


Da die Daten als Monat-Files verwaltet werden, 
sind jeweils nur die Buchungen des laufenden Mo- 
nats im Speicher. Um frühere Buchungen trotzdem 
ansehen zu können, lassen sich mit dieser Taste alle 
Files des geladenen 'Kontos der Reihe nach listen. 


KONTO WÄHLEN 


Neun verschiedene Konti lassen sich anlegen. Hier 
können Sie das gewünschte auswählen. Es emp- 
fiehlt sich, das meistgebrauchte an die erste Stelle 
zu legen. Wenn Sie beim Programmstart im 

Menü Taste ‘F1‘ drücken, wird dieses Konto auto- 
matisch gewählt, Sie brauchen also dann keine 
Kontowahl vorzunehmen. 


KONTO DRUCKEN 


Falls Sie einen Drucker haben, können Sie hier die 
Resultate Ihrer Bemühungen auf Papier verewigen. 
Selbstverständlich erhalten Sie hier nicht nur eine 

Liste Ihrer Buchungen, sondern ein feinsäuberlich 
abgeschlossenes Konto. 


ÜBERSICHT 


Was nützt eine Buchhaltung, wenn man keine 
Bilanz machen kann! In der Übersicht werden alle 
Konti mit ihren Saldi aufgelistet. Außerdem wer- 
den die Saldi aufaddiert, so daß Sie jederzeit und 
blitzschnell Ihren Vermögensstand' "feststellen 
können. Dabei ist es manchmal nützlich, wenn ein 
Konto nicht in die Bilanz eingeht. Sie können dies 


erreichen, wenn Sie beim Konto-Namen einen 


Bindestrich voransetzen (z.B. -Taschengeld). 
Das Konto wird dann in der Übersicht wohl aufge- 
führt, sein Saldo aber nicht berücksichtigt. 


__ LISTINGS 


F 
KONTO ERÖFFNEN 
Hier können Sie jederzeit weitere Konto anlegen, 
indem Sie einen neuen Namen anfügen. Hier also 


müßten Sie den oben erwähnten Trick mit dem 
Bindestrich anwenden. 


DATUM 


Wie schon erwähnt, läßt sich das Datum im Konto- 


blatt erhöhen. Dies aber nur jeweils um einen Tag. 
Größere Sprünge dürfen Sie hier machen, Sie brau- 
chen nur das gewünschte Datum einzugeben. Auf 
ein bestimmtes Format müssen Sie nicht achten, 
dies übernimmt das Programm. Geben Sie also 

z.B. einfach 1.4 ein, wenn Sie den ersten April mei- 
nen. Auf das Mitschleppen der Jahreszahl habe ich 
verzichtet, meist schließt man ja eine Rechnung 
auf das Jahresende ab. 


ENDE 


Wie die meisten anderen Dinge, braucht auch ein 


Programm ein Ende. Dieses hier ist aber besonders 
wichtig, weil eine Datensicherung nur auf diese 
Weise gewährleistet ist. Verlassen Sie also das Pro- 
gramm nur über diese Taste, wenn Sie Ihre Bu- 
chungen später wieder finden wollen. 

Um Fehler zu vermeiden und Programmabstürze 
zu verhindern, werden Ihre Eingaben überprüft. 
So ist es beispielsweise nicht möglich, ein nicht 
existierendes Datum einzugeben. Weiter wurde die 
Input-Routine des Interpreters nicht verwendet, 
ein Basic-Unterprogramm übernimmt diese Aufga- 
be und verhindert, daß Sie Zahlen als Buchstaben 
darzustellen versuchen oder sonst irgendwelche 
exotische Zeichen verwenden. 

Dies hat den angenehmen Vorteil, daß wohl jeder 
Drucker in der Lage ist, die Zeichen darzustellen. 
Wenn er nur fähig ist, auf einer Linie 80 Zeichen 
auf das Papier zu bringen, kann er an das Pro- 
gramm angepaßt werden. 

Das Programm ist, dank Fast-Modus des C-128, 
ganz schön fix. Geradezu berauschend wird es 
aber, wenn man einen Compiler einsetzt. Ein Eng- 
paß ist und bleibt offenbar die Commodore- Flop- 
py, die Datenspeicherung ist immer noch zu 
langsam. 

Wenn Sie nun Ihr Programm noch mit einem Auto- 
Boot versehen, wird die Frage Ihrer Freunde nach 
dem Nutzen eines Home-Computers völlig gegen- 
standslos. Die Zeit des Spielens ist zwar noch nicht 
vorbei, aber immerhin können Sie jetzt auch sinn- 
vollere(? ) Dinge mit Ihrem Sklaven erledigen, 
und dies auch auf eindrückliche Art und Weise 
demonstrieren. 


TASTEN- 
BELEGUNG 


Hinsichtlich des Programmaufbaus entspricht die- 
se Routine für den C-64 haargenau dem Programm 
“Maschinensprache-Funktionstastenbelegung‘“; 
nähere Informationen finden Sie also in dessen 


FUNKTIONS- 


Beschreibung. Zusätzlich beinhaltet diese Version 
jedoch genau vordefinierte Belegungs-Texte für 
die einzelnen Funktionstasten, so daß Sie das 
Definitionsprogramm nicht unbedingt benötigen. 
Selbstverständlich lassen sich mit dessen Hilfe 
aber auch weiterhin Änderungen vornehmen. 
Nach dem Start dieser Routine ist folgende 
Funktionstastenbelegung voreingestellt: 


“ (Im folgenden bedeuten “(&CR)“, daß im Anschluß 


an die Ausgabe des eigentlichen Textes ein 
CARRIAGE-RETURN aus dem Tastaturpuffer 
ausgeführt wird) 


fl: run  (&CR) 

f2: oP4,4,7:cM4:]1I (&CR) sendet Listing auf 
Drucker 

f3: list (&CR) 

f4: open15,8,15, öffnet Floppy-Kom- 
mandofile 

f5: sys679, Aufruf des Definitions- 
Programmes 


f6: ?pE(839)and2 Im Anschluß daran wird 
der Code der gewünsch- 
ten Funktionstaste und 
RETURN getippt. Soll- 
te eine Zahl ungleich 
Null erscheinen, so ist 
die entsprechende Funk- 
tionstaste mit einem zu- 
sätzlichen CR belegt. 
ermöglicht in Verbin- 
dung mit f8, den reinen 
Belegungstext der ge- 
wünschten Funktions- 
taste auszugeben. 
Vorgehensweise: 

f7 drücken — Code der 
gewünschten Funktions- 
taste tippen — f8 drük- 
ken — RETURN 
drücken. 


Bitte beachten Sie, daß der Kassetten-Puffer und 
somit auch das in ihm befindliche Programm bei 
Kassetten-Operationen überschrieben werden. 

Für diejenigen, die sich auch für die Programmie- 
rung interessieren, ist ein Assembler-Listing beige- 
fügt; zu den BASIC-Loadern finden Sie im entspre- 
chenden Abschnitt genauere Informationen. 


f7:P0782,3:pO780, 
f8: "16+128: 'sY43806 


WEITERE DATEN: 


In dieser Version werden die Funktionstasten zu- 
sätzlich automatisch mit folgenden Texten belegt 
(&CR=incl.RETURN): 


fl: run - (&CR) 

f2: oP4,4,7:cM4:11 or 

f3: list &CR) 

f4: open15,8,15, 

f5 sys679 Def.-Prg.-Aufruf 


f6: ?pE(839)and2 CR-Flag anzeigen 
f7: P0782,3:p0780, Ausgeben des jeweiligen 
f8: #*16+128:5Y43806 Textes 


Bei f6 & f7 muß nach dem Druck der Code der ver- 
langten F-Taste getippt werden! fd nach f7 drük- 
ken! Initialisierung mit “SYS 820“. Siehe auch 
ausf. Beschr. 


Position der Texte: je 16 Byte ab 896! 


 Endekennzeichen: Nullbyte. Flags in 839 3» 
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Buchhaltung ı128 
900 rem buchhaltung -===128 
910 rem (p) commodore welt team = 
920 rem ========================> 

: 930 rem (c) by = 
940 rem w. eschmann ” 
950 rem = 
960 rem version 7.0 80 z/ascii = 
970 rem 128 pc/pcd + floppy = 
980 rem | + drucker = 
990 rem =====-=-=-=-=- === === ========= 
1000 rem *### initialisierung **# 
1010 : 

1020 dn=-0O:du=B 
1030 print chr$( 14) ;chr$( 11) 


1040 graphic 5,1:window 0,0,79,24,1 
1050 print"BU-128.03";tab( 71) ;"(c)W 
E.85” | 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
‚1140 


for x=1 to 79:print"-" 
window 0,6,79,6:fast 
for x=1 to 79:print"”- 
window 0,21,79,21 

for x=1 to 79:print"”-”; 
window 33,12,50,20 
print"Buchhaltung C 128" 
print” (C) W.Eschmann" 

print" 1985" 

1150 in$="1234567890.+-" 

1160 ib$=" -ABCDEFGHIJKLMNOPARSTUVW 
XAYZabcdefghi jklmnopgqgrstuvwxyz012345 
6789" 

1170 p1$="ARH.AH”" :p25=" 
HRRRHRRHHHHHRBRR :P38=" 
Be 25 7 7 26 75 20 5 26 

1180 pw$="DM " 

1190 for x=1 to B:key x,chr$(x+132) 
‚next x 

1200 dim dd( 200) ,‚dt$( 200) ,‚db( 200) ,s 


‚next x 
"::next x 


:next x 


HRRRHRRAHR 
AHAR. :p4$= 


1360 
1370 


1380 


1390 
1400 
u) 

1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


ehlen 
cken" 


ME 2.0 


input#10,kn$( x) 

if ds<>O then 4010 
next x 

dclose 

dopen #10, "buch. sum" ,d({dn) ,u(d 
for x=1 to 9 

for y=O0 to 12 
input#10,su(x,y) 

if ds<>O then 4010 
next y 

next x 

oclose 

bend 

if asc(ip$)=135 then 1220 
rem *#%# menue ### 


window 0,2,79,5,1 

trap 4120 

printtab( 10) ;"F1...... Konto fu 
TEEN een ea 5uKonto: 11 


be! 2< PRESSURE Konto wa 
ee ar FA......Konto dru 


SIEB Ee Vebersic 
DES EHE EIRERS FRE NORES F6......Konto ero 


effnen" 


1580 


1590 
1600 
1610 


rinteablinn: 


window 0,7,79,20,1_ 
if dt=31 and dm=12 then begin 
print:printtab( 15) ;"Die Buchha 


ltung ist am Jahresende abzuschlies 


sen.” 
1620 


printtab( 11) ;"Nehmen Sie eine 


neue Daten-Diskette oder loeschen 5 


u( 9, 12) 


1210 
1220 
u) 

1230 
1240 
1250 
1260 


trap 4120 
dopen #10,"buch.had”,d( dn) ,‚u( d 


if ds<>O then begin 

dclose 

window 5,2,799,5,1 
print"Daten-Diskette einlegen. 


‚Andernfalls wird neue Datei eroeff 


net!” 


1270 


print" ’F1’..Datei eroeffnen... 
et ’F3’..Diskette gewech 


it$="Eingabe : ":gosub 2830 
if asc(ip$) =133 then 1320 
if asc[(ip$)-=-135 then clr:run 
goto 1280 

window 5,2,79,5,1 

gosub 3130 

bend:else begin 

for x=1 to 9 


ie die" 


1630 


les im Direkt-Modus mit SCRATCH 


,‚” 


S 
1640 
1650 
1660 
1670 
1680 
atum 
1690 


printtab( 13) ;"sequentiellen Fi 


Li 


bend 

window 33, 12,50,20 
print"Buchhaltung C 128” 
window 35,23,79,24,1 
print”Konto :.."”;kn;spc( 11); "”D 
:..”;da 


it$="Eingabe : ":gosub 2830:if 


peek( 213) =64 then gosub 6040:goto 


1720 
1700 


x=asc( ip$) - 132:if x<1 or x>8 t 


hen 1690 Ä x 


1710 


‚3690,3130, 


1720 
1730 
1740 


on x gosub 1960, 4730, 3440,5120 
2930, 1770 

goto 1530 

return 


Buchhaltung 


1750 
1760 
1770 
1780 
; fm 
1790 
1800 


du) ‚w 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 


1930 


1940 
1950 
1960 
1970 


128 


rem ##%#* ende *### 


window 0,23,30,24,1 
print”"Daten sichern : 


kn; . 


if fd>O then gosub 4230 
dopen #10,”$buch.sum"”,d({dn) ‚u( 


print"Daten sichern : Header 
if ds<>O then 4010 

for x=1 to 9 

for y=0 to 12 
print#10,su(x,y) 

if ds<>O then 4010 

next y 

next x 

dclose 

print chr$( 19) ;chr$( 19) 
window 0,0,79,24,1 

end 


rem *##= konto fuehren **##* 


window 35,23,79,24,1 
if kn=0 then kn=1:fm=su(kn,D): 


gosub 4480 


1980 
1990 
2000 
2010 
6); 

2020 


DAT” 


2030 
2040 
2050 


2070 
2D80 
8) 

2090 


if da=0 then gosub 2930 
window 0,2,79,5,1 
fm=-su(kn, 0) | 

print kn; ".kn$Ckn) ;chr$( 14 


PEINERBBLSAN TEN” CLR....’F3’ 


window 0,5,79,5,1 
print” DAT...... TEXT 2320.00 


. HABEN”; 
window 0,8,79,20,1 
s-D:ss=-0:zz=-1:if dz<D then dz>= 


if fm>1 then for x=1I to fm-1i:s 


s=ss+tsu(kn,x) :next x 


2100 do until zz>dz 

2110 window 0,20,79,20,1 

2120 print using pi$;dd( zz); 

2130 print tab(8);:print using p2$; 
dt$( zz); 

2140 print tab( 35); :print using p3$ 
; zz; | 

21350 if db(zz)>O then print tab( 45) 
> 

2160 if db(zz)<O then print tab( 65) 
3 

2170 print using p4$;abs( db( zz)); 
2180 s=s+tdbf( zz) :zz=zz+1 

2190 


window 0,8,79,20 


2200 print chr$( 27) ;"”v 

2210 loop 

2220 window OD, 23, 30,24,1 

2230 print"Saldo - " enrint using p 
4$;st+tss 

2240 su(lkn, fm) =s 

2250 window 0,20,79,20,1 

2260 dz=dz+1:dd( dz) =da 

2270 print using p1$;dd( dz); 

2280 window 35,23,79,24,1 
2290 it$=-"Text.. ".iz$= 
2300 gosub 2600 

2310 if x$=chr$( 133) and ip$=""” the 
n dz=dz-2:fd=1:goto 2070 

2320 if x$=chr$( 135) and ip$="" the 
n dz=dz-1:gosub 2910:goto 2250 


ib$:i1=25 


50 

2340 
2350 
2360 


2330 if ip$="" then dz=dz-1:goto 25 


dt$(dz)=ip$ 
window 0,20,79,20 
print tab(8);:print using p2$; 


dt$(dz); 


2370 
‚dz; 


2380 


2390 
2400 
2410 
n dz 
2420 


print tab( 35) ;:print using p3$. 
window 35,23,79,24,1 . 
it$="Betrag : "”:iz$=-in$:il=-10 
gosub 2600 

if x$=chr$( 133) and ip$=-""” the 


=dz-1:goto 2250 


if x$=chr$( 135) and ip$="" the 


n 2400 


2430 


if vallip$)=0O then dz=dz-1:got 


o 2550 


2440 
2450 
2460 


2470 


> 
2480 
2490 
2500 
2510 
2520 
2530 


db( dz)=val(ip$) 
window 0,20,79,20 
if db(dz)>O then print tab( 45) 


if db(dz)<O then print tab( 65) 


print using p4$;abs( db(dz)); 
s=s+db( dz) :su(lkn, fm) =s: fd=1 
window 0,8,79,20 

print chr$(27);"”v 

window 0,23,30,24 

print”"Saldo : ";:print using p 


4$;s+ss 


2540 
2550 
1 


2560 


2’570 
2580 
590 
2600 
2610 
2620 
ar 

2630 


goto 2250 
if dz=O then su(kn,O)=su(kn,O) 


return 

rem #?## input ### 

x$=-"":ip$="" 

print chr${( 19) ;it$ 

print chr$( 19) ;spc( 11) ;chr$( 15 


do until asc(x$)=13 
21 
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2640 print chr${( 19) ;spc( 11) ;ip$ 
2650 getkey x$ 
2660 if RSehLel or) and ip$="" then 
‘  exit:rem ret 
2670 if x$=chr$( 133) and ip$="" the 
n exit:rem fi | 
2680 if x$=chr$( 135) and ip$="" the 
n exit:rem f3 
2690 if x$= =chr$( 46) and ipg="" and 
i.z$=in$ then ip$="0" 
2700 if instr(iz$,x$)<>O then ip$=-i 
p$+x$ 
2710 if asc(right$(lip$,4))=46 then 
ip$=left$( ip$,1len(ip$)-1i) 
2720 if len(ip$)>il then ip$=left$l 
ip$,il) | 
2730 if abs(val(ip$))>-1000000 then 
scnclr:goto 2600 
2740 if asc(x$)=20 and len[(ip$)>D t 
hen begin 
2750 print chr$( 19) ;tab( (len( ip$) -1 
)+11) 2) 
2760 ip$=left$(ip$,1len(ip$)-ı) 
2770 bend 
27BD loop 
2790 return 
2800 : 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 : 
2890 rem **## datum ### 
2900 : 
2910 if kn<1 or kn>9 then 3090 
2920 dt=int( da) :dm=int( (( da-dt) #100 
)J+.5) :dt=dt+1:goto 3000 
2930 window 0,23,30,24,1 
2940 it$="Datum :":iz$=in$:il=S 
2950 gosub 2600:x=instr(ip$,"."”):if 
ip$=-"" then 3090 
2960 dt=abs(val(left$lip$,x-1))) :dm 
=yal(lmid$(ip$,x+1)) 
2970 if dt<1 or dt>31 then 2930 
2980 if dm<1 or dm>12 then 2930 
2990 if dm<su(kn,O) then 2930 
3000 on dm goto 3030,3010,3030, 3020 
‚3030, 3020,3030, 3030, 3020,3030, 3020 
‚3030 
3010 if dt>29 then dt=1:dm=dm+1: 
o 3040 
3020 if dt>30 then dt=1:dm=-dm+1 
o 3040 
3030 if dt>31 then dt=1:dm=-dm+1:got 
o 3040 


22 


rem *+## get 4% 


window 0,23,30,24,1 
print it$;chr$( 15) ;"”- 
getkey ip$ 

scnelr 

return 


got 


got 


3040 
3050 
3060 
230 

3070 
u(kn, 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 


if dm>12 then dm=12:dt=31 
da=dt+{ dm/100) 
if fd>DO ‚and fm<dm then gosub 4 


if fmn<dm then dz>= 0: s=f):ss= ssts 


fm) 

fm=dm: sul kn, D) =dm 
return 

rem **# dat. 


eroeffnen ### 
il-15:1z2$=-i1b$:it$="Kontoname"” 
window 0,7,79,20,1 

window 10,2,79,5,1 

print” Bitte Namen ger zu Ezuer 


fnenden Konti eingeben. 


3170 


print”Ein ’-’ vor dem Namen ke 


DEE LENNeN ‚das Konto als selbstaend 


ig. 


3180 


zeit 
3190 
3200 
3210 
3220 
3230 
3240 


print"Neue Konti koennen jeder 
eroeffnet werden. 

x=] 

if len kn$Cx)) >14 then 3270 
window 0,23,30,24,1 
print"Konto Nr. ";x 

window 35,23,79,24,1 


if kn$[ x-1)="*" and ip$=-"*" th 


en kn$[ x)="#":goto 3270 


3250 
.n 

3260 
3270 
3280 
3290 
3300 
3310 
3320 


gosub 2600:if ip$="" then ip$= 


kn$l x) =ip$ 

window 30,x+8,79,2D, 1 

print x;spc(?7);kn$( x) 

x=x+1l:if x<10 then 3200 
window 35,23,79,24,1 
print”"Konten sichern" 

dopen #10,"$buch.had"”,d( dn}), u( 


3460 


3480 
3490 
23500 
2510 


du) ,w 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 


if ds<>DO then 4010 
for x=1 to 9 
print#10,kn$(x) 

if ds<>O then 4010 
next x 
dclose 
window 
return 


30,8,79,20,1 


3410 


3420 FEN 


3430 
3440 
3450 


rem ### konto waehlen 


it$="Konto-Nr. ” 
window 0,7,79,2D, 1 
window 25,8,79,20 
print”Erroeffnet sind : 
for x=1 to 9 

if len(kn$[ x))=1 then 
print x;spc(?7);kn$(x) 
next x 

window 0,23,30,24,1 


3470 


3520 


3520 
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3530 
kn>O 
3540 


ı28 


gosub 2830:if 0 1 22 and 
then 3650 
if val(lip$)<1I or val(ip$)>9 th 


en 3530 


3550 


3560. 
begin 


3570 


if kn${vall(ip$))="*"” then 3530 
if kn<>val[(ip$) and fd>D then 


print”"Daten sichern : ";kn;fm 


3580 gosub 4230 

3590 bend 

3600 if kn<>val(ip$) then bein 
3610 kn=val(ip$) :fm=su(kn,O) 

3620 print"Daten laden : ":kn;fm 

3630 gosub 4450 

3640 bend 

3650 return 

3660 : 

3670 rem ### konti zeigen ##% 

3680 : | 

3690 window 0,8,79,20,1 

3700 print”"UEBERSICHT ".tab( 34) ;” 

Kontostand" ;tab( 67) ;"Saldo” :print 
3710 s=-0O:ss=0 

3720 for x=1 to 9 

3730 if kn$(x)="#" then 3790 

3740 for y=1 to 12:5=s+su(x,y) :next 
y 

3750 print x;tab(5) ;kn$(x);tab( 30); 
pw$; :print using p4$;s; 

3760 if left$(kn$(x),1)="-"” then 37 
90 

3770 ss=ss+ts:s=0 

3780 print tab( 60) ;pw$; :print using 
p4$;ss 

3790 next x | 

3800 it$=""S5PC’ ’"NA’ ":gosub 2830 
3810 x=vallip$) :if x>O and x<10 the 


n goto 3870 


3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 


p4A$;s 


3940 
3950 
3960 
3970 
3980 
3990 
4000 


if asc{ ip$)<>32 then 3800 
return 


rem **#*# stat F#* 


window 0,8,79,20,1:s=D 
print”"Monats-Saldi Konto” 
for y=1 to 12 

if su(x,y)=-O then 3940 
printtab(45) ;y; 
s=stsu(x,y) 
printtab(55) ;pw$; :print using 


»,%; 


next y 
it$="’SPC’ ":gosub 2830 
if asc(ip$)<>32 then 3950 


goto 3690 


rem #**# disk-error #*#*# 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
A100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
) 

4260 


4270 


m 
4280 
4290 
4300 
a310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
90 
4500 
4510 


x=ds:x$=ds$ 

dclose 

window 35,23,79,24,1 
print x$ 

it$="’SPC’ ":gosub 2830 
window 35,23,79,24,1 

if x=74 then 1220 

goto 1530 


rem ##% trap #r% 


close 1 

dclose 

window 35,23,79,24,1 
print err$(er);er 
it$=""’SPC’ ":gosub 2830 
window 35,23,79,24,1_ 

if er=-5 then resume 1220 
resume 1530 


rem #*## daten sichern ##*% 
he$="$buch."”"+str${(kn) +str$( fm) 
if dz=0O then begin 
he$="s:buch.”+str${( kn) +str$( fm 


open1,8,15,(he$) 
su(kn, fm) -0: fm=fm-1i:su(kn, 0) =f 


poto 4420 
bend 
dopen #10,(he$), dldn). ‚u( du) ‚w 


if ds<>O then 4010 
print#10,dz 

if ds<>O then A010 
for x=1 to dz 
print#10,dd( x) 

if ds<>DO then 4010 
print#10,dt$(x) 

if ds<>O then 4010 
print#10,db( x) 

if ds<s>D then AD10 
next x 

dclose 

fd=-0:dz=0 

return 


rem ##*# daten laden *###* 


he$="buch."”+str${kn) +str$t fm) 
if fm=0 then dz=0:da=-0:goto 46 


dopen #10,(he$),d{.dn) ,u( du) 
if ds=62 then su(lkn, fm) =0: fm=f 


m-1:su(kn,O)=fm:dcelose:goto 4480 


4520 


4530 
4540 


if ds<>O then A010 
input#10,dz 
dcelose 
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4550 
4560 
4570 


' 4580 


4590 
4600 
4610 
4620 
4630 
A640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 


1285 


dopen #10,(he$) ,,‚d( dn) ‚u( du) 
if ds<>O then 4010 
input#10,dz 

if ds<>O then 4010 
for x>=-1 to dz 
input#10,dd( x) 

if ds<>0O then 4010 
input #10,dt$(x) 

if ds<>DO then A010 
input#10,db(x) 

if ds<>O then 4010 
next x 

dclose | 
da=dd( dz) : fd=D 
return 


rem ### konto listen *## 

if fm=-0 then 5080 

window 0,2,79,5, 1 
print"Konto-Uebersicht”; 

print tab(58) ;"”’F1’ RET...’F3’ 


CONT” 


A770 
4780 
4790 
A800 
a810 
4820 
4830 


if fd>DO then gosub 4230 

x=1 

do until x>su(kn,O)-1 

window 0,8,79,20, 1 
he$="buch."+str$(kn) +str$( x) 
dopen #10,(he$) ,‚d{ dn) ‚u( du) 

if ds=62 then dclose:x=x+1:got 


o 5070 


A840 
4850 
4860 
4870 
4880 
4890 
4900 
A910 
4920 


if ds<>O then 4010 

input#10,z 

dcelose 

dopen #10,(he$) ,‚d({ dn) ,‚u( du) 
input#10,z 

for y=-1 to z 

input#10,a:print using p1$;o; 
if ds<>O then 4010 
input#10,b$:print tab(B);:prin 


t using p2$;b$; 


4930 
4940 
ıY5 

4950 
4960 
4970 
4980 
4990 
5000 
5010 


. 5020 


5030 
070 
5040 


if ds<>0O then 4010 

print tab( 35); :print using p3$ 
input#10,c 

if ds<>O then 4010 

if c>O then print tab(45); 

if c<O then print tab(65); 
print using p4$;c 

if ds<>O then 4010 

next y 

dclose 

if fl=1 then fl=-0:x=x+1:goto 5 


it$="Eingabe : ":gosub 2830:if 


asc( ip$) <>133 and asc( ip$) <>135 th 
en 5040 


5050 if asc(ip$)=133 then x=su(kn,O 
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):fl= 


5060 
5070 
5080 
5090 
5100 
sı10 
5120 
5130 
5140 


‚5150 


5160 
5170 
5180 


5430 


5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 


I 

if asc(ip$) =135 then x=x+1 
loop 

return 


rem *+*## ausdruck *### 


if kn=0 then 5430 

if fp>O then 5160 
boot"buch.hex"” 

fp=1 | 

window 0,2,79,5,1 
x=1:2=-0:5s=-0:ss=-D0:zz=-0:zp=] | 
gosub 5470:if asc(x$)=135 then 


do until x>su(kn,O) 

window 0,8,79,20, 1 
he$=-"buch.”"+str$(kn)+str$(x) 
dopen #10,(he$) ,‚d{ dn) ‚u( du) 
if ds=62 then 5380 
input#10,dz 


open 1,4 | 
for y=1 to dz:z=z+1:zz=zz+1 
if zz>54 then zz=0:zp=zpt+ti:gos 


ub 5470 


5290 


nt#1, 


5300 
b$; 

5310 
5320 
5330 
5340 


p4$; 


5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 


input #10,a:print#1,tab(5);:pri 
using pi1$;a; 
input#10,b$:print#1,using p2$; 


print#1,using p3$;z; 

input#10,c:ss=ss+tc 

if sgn({c)=1 then s=stc 

if sgn(c)<1 then print#1,using 
> 

print#1,using p4$;abs(c) 

if ds<>O then A010 

next y | 

xaxtl 

dcelose 

close 1 

loop 

gosub 5800 

return 


rem ### printer starten *### 


if zp>1 then begin 

open1i,4 

print#1,tab(45); 

for v=1 to 28:print#1,"”-"”;:nex 


t v:printf1 


5510 
5520 
5530 
5540 
5550 


5560 


print#1,tab(45); * 
print#1,using p4$;abs(s); 
print#1,using p4$;abs(s-ss) 
print#1,chr$( 12) :closei 
bend | 


scnelr 


4 = 2) un * / 
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2 print kn$( kn); EabL SB); Seite : 
"-zp 
S580 print:if zp>1 then 5640 


5590 print”Papier einlegen!...’F1’. 


.Start....’F3’..Menue" 
5600 getkey x$ 
s610 if asc(x$)=-133 then 5640 


5620 if asc(x$)=-135 then 5760 

5630 goto 5600 

5640 open1,5:print#1, chr$( 27); chr$( 
67) :closeI 

5650 open1,4:print#1,tab( 10) 
8::B5:.%.% Seite”;zp:closelI 
5660 open1,5:print#1,chr$( 27) ;chr$( 
14) ;:closeI 

5670 open1,4:print#1,tab(5) ;kn$(kn) 
:closel | 

5680 open1,5:print#1,chr$( 27) ;chr$( 
15) ;chr$( 27) ;chr$( 65) :closeI 

5690 if zp>i1 then begin 

5700 open1,4 

5710 print#1,tab(45); 

5720 print#1,using p4$;abs(s); 

5730 print#1,using p4$;abs(s-ss) 
5740 print#1, EHEN IST close 

5750 bend 

5760 return 

5770 

5780 rem #*## druck abschluss *### 
5790 : 

5800 open1,4,0 

5810 print#1,tab(45); 

5820 for x=1 to 28:print#1,"-";:nex 
t x 


:"(c) w 


5830 printf1 


5840 print#1,tab(45); 

5850 print#1,using p4$;abs(s); 

5860 print#1,using p4$;abs( s-ss) 

5870 at tab( 11) ;:print#1,using 
‚p2$; "Saldo" print#1, using p3$;” ” 


5880 if sgn({ss)=1 then print#1,usin 
2 p4$;" "; 

5890 print#1,using p4$;abs(ss) 

5900 print#1,tab(45); 

5910 for x=1 to 28:print#1,"”-";:nex 
tx | 
5920 print#1 

5930 print#1,tab(45); 

5940 print#1,using p4$;abs(s); :prin 
t#1,using p4$;abs(s) 

5950 printf1 

5960 print#1,tab(45); 

5970 for x=1 to 28: rin. nn 
t x 
5980 
5990 
1 


;ınex 


print#1:close 1 
open1,5:print#1,chr$( 12) :close 


© 


6000 
86010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
86090 
6100 
xit 

6110 
6120 
6130 
6140 


6150. 


6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 


return 


rem ### help *## 


dopen #10,”"buch.hlp”,dO,u8 
if ds<>O then 4010 

window 0,7,79,20, 1 

do until x=64 
get#10,x$:x=st 
print x$; 
if x=64 or peek( 213)=64 then e 


loop 


dclose 


gosu 
if i 
retu 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


b 2830 
rn 
buchhal 
122365 
015091 
000000 
000000 
000000 
046686 
060588 


then 


tung 
bytes 
bytes 


memory 
program 
variables 
strings 
arrays 
free (0) 
free (1) 
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100 rem Bunktiscetasterbelezung -64 
110 rem (p) commodore welt = 
120 rem = - in maschinensprache - 
130 rem (c) by andreas meissner = 
140 rem c 64 + 1531/41/70/71 = 
150 rem ===-=====- == === mama mm 
160 : 


1000 "Poke53280, 4: poke53281, 4 

1010 printchr$( 147) chr$( 14) chr$( 8) c 
hr$(5); 

1020 printchr$( 18) "Funktionstastenb 
elegung incl.Text;in ML” 

1030 print” (C) Febrüar 1986 by And 
Meissner” 


print"In dieser Version werden 
Funktions-” 
print"Tasten zusaetzlich autom 
atisch mit fol-" 
1080 print"genden Texten belegt (EC 
R=incl.RETURN) :" 


1090 print" Fi: run......2.2... ( ECR 
)® 

1100 print” f2: oP4,4,7:cMA:1I (&6CR 
” | 
1110 print” f3: list.......-.... (ECR 
1120 print” f4: open15,8,15," 

1130 print" 5: sys679,..-....... "ch 
r$( 180) "Def.-Prg.-Aufruf.” 

1140 print” f6: ?pE( 839) and2°..."”ch 
r$( 180) "CA-Flag anzeigen.” | 
1150 print” f7: p0782,3:p0780, ch 
r$(‘180) "Ausgeben des je-" 

1160 print” FB: #16+128:sY43806 "ch 


- r$( 180)”"-weiligen Textes." 

1170 print"Bei f6&f7 muss nach dem 
Druck der Code” 

1180 print”der verlangten F-Taste g 
etippt werden!” 

1190 print"”fB nach #7 druecken ! 
itialisierung” | 


In 


1200 print"mit "chr$( 34) "SYS sEuTeN: 


r$( 34)”. Siehe auch ausf. Beschr. 
1210. print se remesnee esse rennen 
1220 print"Position der Texte: 
6 Byte ab 896 I" 

1230 print"Endekennzeichen: 
e. Flags in 839" | 


Nullbyt 


1300 : | 

1310 fori=-820t01023 

1320 readx:pokei,x:y=y+x 

1330 next 

1340 ify<>13802thenprintchr$( 18) "Fe 
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je U 


=> Abbruch !": 


hler in DATA-Zeilen; 

end 

1400 | | 

1410 input"Prg.&Text auf Disk speic 
hern (j/n) "; jn$ 

1420 if 3jn$="n"then1600 

1430 if jn$<>" j"thenprintchr$( 145); : 
goto1410 Ä 

1440 open1,8,2,"$:ml-ftbel&text820, 
P,w“ | 

1450 print#1,chr$( 52) chr$( 3): 

1460 fori=-820t01023 

1470 printf1, ehr$( peekli)); 

1480 next 

1490 closeiI | 

1500 print:print"sys820"chr$( 145); 
1600 : 

1610 poke53280, 14:poke53281,6:print 
chr$( 145) chr$( 154) chr$( 9); = | 
1620 end 

1700 

1710 : 

59990 rem==-=-============datas. 
60000 data 070 ,„ 003 ,„ 049 :rem ab 
820 
60010 data 234 ,„ 160 , 003 :rem ab 
823 5 

60020 data 120 ,„ 185 ,„ 052 :rem ab 
826 

60030 data 003 ,„ 153 ,„ 020 :rem ab 
829 

60040 data 003 ,„ 136 ,„ 016 :rem ab 
832 

60050 data 247 „ 088 ,„ 096 :rem ab 
835 | 

60060 data 000 ,„ 019 ,„ 165 :rem ab 
838 
60070 data 204 ,„ 208 , 049 :rem ab 
841 

60080 data 164 „ 198 ,„ 240 :rem ab 
844 

60090 data 045 ,„ 185 ,„ 118 :rem ab 
847 

60100 data 002 ,„ 056 „ 233 :rem ab 
850 

60110 data 133 ,„ 201 ,„ 008 :rem ab 
853 | 

60120 data 176 ,„ 035 ,„ 198 :rem ab 
856 Ä | 
60130 data 198 ,„ 0972 „ 010 :rem ab 
659 | 

60140 data 010 , 010 ,„ 010 :rem ab 
862 | 

60150 data 105 ,„ 128 ,„ 160 :rem ab 
865 | | 
60160 data 003 ,„ 032 „ 030 :rem ab 
868 

60170 data 171 ,„ 10% ,„ 168 :rem ab 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


data 


056 


000 


000 


136 


045 
240 
013 
002 
076 
082 
000 


000 


000 


000 


000 


083 


000 


000 


000 


000 


089 
055 


000 


000 


000 


080 


056 


051 


207 


048 


000 


056 


016 


071 


007 


141 


230 


129 


0865 


000 


000 


000 


000 


076 


084 


000 


000 


000 


000 


083 


057 
000 
000 
000 
207 
050 
058 
055 
044 


079 


:-rem 
‚rem 
:-rem 
‚rem 
:rem 
: rem 
: rem 
: rem 
:rem 
:rem 
:rem 
:rem 
:rem 
. rem 
:rem 
:-rem 
.rem 
:rem 
‚rem 
.rem 
: rem 
.rem 
. rem 
:-rem 
.rem 
: rem 
: rem 
:rem 


. rem 


ab 


ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 


ab 


ab 


ab 


FREE, > BE 

958 = 

60470 data 208 052 044 :rem ab 
961 

60480 data 052 044 055 :rem ab 
964 

60490 data 058 067 205 :rem ab 
967 

60500 data 052 058 0736 :rem ab 
970 | 

60510 data 201 000 000 :rem ab 
973 

60520 data 079 080 069 :rem ab 
976 

60530 data 078 049 053 :rem ab 
979 

60540 data 044 056 044 :rem ab 
982 

60550 data 049 053 044 :rem ab 
985 

60560 data 000 000 000 :rem ab 
988 . 

60570 data 000 063 080 :rem ab 
991 

60580 data 197 040 056 :rem ab 
994 | 
60590 data 051 057 041 :rem ab 
997 | 
60600 data 065 078 068 :rem ab 
1000 
60610 data 050 094 000 :rem ab 
1003 
60620 data 000 000 042 :rem ab 
1006 

60630 data D49 054 043 :rem ab 
1009 

60640 data 049 050 056 :rem ab 
1012 | 

60650 data 058 083 217 :rem ab 
1015 

60660 data 052 051 056 :rem ab 
1018 

60670 data 048 054 000 :rem ab 
1021 

60680 rem f.tastenbelegung =-==-===-64 
60690 rem 38911 bytes memory == 
60700 rem 02437 bytes program == 
60710 rem 00000 bytes variables == 
60720 rem DOOOD bytes strings == 
60730 rem 00000 bytes arrays == 
609740 rem 36474 bytes free == 
60750 rem -—————— aa a a a a rn 

Die nachste 

COMMODORE-WELT 


am 25.Juli 
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FLOPPY- 


FEHLER- 


ABFRAGE 


Mit dieser Routine für den C-64 mit Floppy erhal- 
ten Sie die Möglichkeit, jederzeit den Statuskanal 
des Diskettenlaufwerks (Adresse acht) abzufragen 
und auf dem Bildschirm anzuzeigen. Dabei ent- 
fällt die sonst übliche umständliche Eingabe einer 
entsprechenden BASIC-Zeile. Nach absolutem 
Laden oder Initialisierung aus DATA-Zeilen steht 
die Routine im Kassetten-Puffer zur Verfügung; 
sie ist jedoch bei Angleichung der Adressen frei ver- 


schiebbar. 


Aufgerufen wird sie mit “SYS 965“ und simuliert 
somit ein PRINT DS$ größerer Commodore-Com- 
puter — das Format der Ausgabe stimmt überein 

(Fehlernummer-Fehlertext-Track-Sector). Aller- 


dings ist — 


da die Routine ohnehin wohl nur bei 


Bedarf aufgerufen wird — kein Abfangen von Feh- 
lern vorgesehen; die Floppy sollte also beim Auf- 
ruf eingeschaltet sein. Es muß wohl nicht erklärt 
werden, daß nach SYS 965 der Fehlertext nicht 
mehr im Statuskanal der Floppy zur Verfügung 


‚steht. 


Bitte beachten Sie, daß der Kassetten-Puffer und 
somit auch das in ihm befindliche Programm bei 
Kassetten-Operationen überschrieben werden. 


 ARMIGER 


BANDIT 


Wer kennt sie nicht, die 
Einarmigen Banditen aus 
Las Vegas, in unzähligen 
Filmen schon verewigt. 
Wollten Sie schon immer 
einmal an so einem Gerät 
das große Glück erleben 
und als reicher Mann wie- 
der nach Hause gehen? 
Sparen Sie sich Ihre kost- 
baren Urlaubstage, geben 
Sie die Flugtickets nach 
Amerika wieder zurück 
und spielen mit Ihrem 

C 64 den Einarmigen Ban- 
diten. 

Dieses Spiel entspricht 
dem Original, Sie brau- 


28 


chen lediglich mit etwas 
Glück die richtigen (zu- 
sammenpassenden) Bilder 
zu erreichen, um je nach 
Aufstellung Ihren Gewinn 
verbuchen zu können. 
Aus Zeitgründen wurde 
auf die Montage des be- 
rühmten Hebels am Moni- 
tor verzichtet, Sie müß- 
ten hier die rotierenden 


Rollen mit der >RETURN< 


Taste stoppen. Sollte es 
Ihnen gelingen, Ihren 
Computer zur Auszahlung 
des Gewinns zu überreden, 
so bitten wir um Benach- 
richtigung. 


behandlung; 


1200 print"Aufruf: SYS 965 bzw. 


100 rem floppy-fehlerkanalabfrage-- 
110 rem (p) commodore welt == 
120 rem (c) by andreas meissner == 
130 rem in maschinenesprache == 
140 rem c 64 und 1541/1570/1571 -- 
150 rem -=--=--=-=-==-=-=-==-<s 7m smoesemumusco= 
160 rem 

170 : 


1000° poke53280, 11:poke53281,11 

1010 printchr$( 147) chr$( 14) chr$(8)c 

hr$( 155); 

1020 printchr$( 18) "Floppy-Fehlerkan 

alabfrage in Masch.-Sp. 

1030 print” (C) Februar 1986 by And 
reas Meissner..” 

1040 print"===================2===== 
1050 print”"Diese kompakte Maschinen 
routine dient” 

1060 print”"zum Auslesen und Anzeige 
n des Fehlerka-"” 

1070 print”"nals der Floppy (Adresse 
8). Ein ein-” 
1080 print"faches 

965’ 


’5Y5 
erspart eine umstaend-" 


1090 print"liche BASIC-Zeile und en 


tspricht somit" | 

1100 print”dem BIN DS$ der grosse 
n CBM-Computer. 

1110 print"Da die Routine i.a. 
bei Blinken der” 


nur 


: 1120 print” roten Floppy- -LED BUTBREU 
fen wird, | 


er-" 
or sich eine Fehler 
die” 

print” “-DNDY muss also vor dem 
965-Befehl” 

print” unbedingt eingeschaltet 


1130 print” 


1140 


“ 
um un Mm Me MEERE GUpiims wansıa UN ‚oiDehn MED nei Seinen miiaan "Tune 


1170 print” Position: 
r (965-1016) ” | 
1180 print"”aber im Speicher frei ve 
rschiebbar !"” | | 

1190 PEINe mer BeRS nenne En een 


Tee «um Em Emm FirEn CE Good WEAMEE mennbe Miäb MAMENG "Oben Kuna Tonfiunit tun 


Kassettenpuffe 


JSRA 
$O3CS sowohl" 


1210 print”"im Programm- als auch im 


Direkt -Modus"” 


1220 print"=========-===-=-==--=-=-=- >20. == 
1300 : P 

1310 fori=965t01016 

1320 readx:pokei,x:y=y+tx 

1330 next 

1340 ify<>7065thenprintchr$( 18) "Feh 


ler in DATAs !!. !":end 
1400 : 

1410 input”"Routine auf Disk speiche 
rn (j/n) ";jn$ 

1420 ifjn$="n"then 1600 

1430 if jn$<>" j"thenprintchr$( 145); : 
otoi410 | 


.-> Abbruch 


440 open1,8,2,"$:m1l-diskerror/965, 
p,w"” | 

1450 print#1,chr$( 197) chr$( 3); 
1460 fori=965t01016 

14970 printf#1,chr$( peek(i)); 

1480 next 

1490 close! 

1500 sys965:printchr$( 145); 

1600 : 

1610 poke53280, 14:poke53281,6:print 
chr${ 154) chr$( 9); 

1620 end 

1700 

1710: : 

59990 rem====-=-==-=-==- ==: === === datas 
80DDOO data 169 ,„ 000 ,„ 133 :rem ab 
965 | 

SODIDO data 344 ,„ 169 „ 120 :rem ab 
968 Ä 
60020 data 162 ,„ 008 „ 160 :rem ab 
971 

60230 data DIS ,„ 032 ,„ 186 :rem ab 
974 | 

60040 data 255 ,„ 169 ,„ 000 :rem ab 
977 | 

60050 data 032 ,„ 189 ,„ 255 :rem ab 
980 

60060 data 032 „ 192 ,„ 255 :rem ab 
983 

60070 data 169 ,„ 008 ,„ 032 :rem ab 
986 

60080 data 180 ,„ 255 ,„ 165 :rem ab 
989 

60090 data 185 ,„ 032 ,„ 150 :rem ab 
992 

60100 data 255 ,„ 032 ,„ 9165 :rem ab 
995 

60110 data 255 ,„ 032 ,„ 210 :rem ab 
998 | i 

60120 data 255 ,„ 036 ,„ 144 :rem ab 
1001 

60130 data 080 ,„ 246 „ 169 :rem ab 
1004 

60140 data DOB ,„ 032 „ 171 :rem ab 
1007 

S0OI50 dato 255 „ 169 ,„ 120 :rem ab 
1010 | 

60160 data 032 ,„ 195 ,„ 255 :rem ab 
1013 

60170 data 096 :rem ab 1016 

60180 


rem floppyfehlerkanal======64 


038911 
003435 
000028 
000001 
000000 
035447 


memory == 
program == 
variables == 
strings ae 
arrays  -=- 
free == 


ES 
Gisen Ni eihmels dien Tuäsee Mi: GRSENED Weile, WENNS GmiEnD udn abumien Mndhme dpi dindicer DUMANE AMBEN Anders AUMIME ana ein CEEEEUR ABMMED: MeimD ananiin 


60520 
60530 


LS Sn a a en ne SE ee een NE Eee is es nn Bee ne ne a Feen a u Be 
FE inmnermiger Boamndlt 


IN rem 
20 rem 


einarmiger bandit 
(p}) commodore welt = 

30 rem ========-=== = === === mm um 

AU rem (c) by 

50 rem klaus dillinger 7 

60 rem = 

70 rem = 

80 rem c-64 +1530/1541 = 

00 rem =======-=-=-=- === ==. == =2=2=2=2=202== 
100 c1$=chr$( 147) :pu$=chr$( 156) :ye$ 
=chr${ 158) :c4$=chr$( 17) :1g$=chr$t{ 15 
4) 

10 cy$=chr$( 159) :rn$=chr$( 18) :rf$= 
shr$f 146) :Ir$=chr$( 150) :he$=chr$( 19 
; | 

ic fort=491521.04956}:reada:poket,a 
:g=starnext 

130 ifs<>50378thenprint"data-error" 
end a 

140 v=-53248:p-54272:pokev+32,0:poke 
v+32,0 

150 printcl$pu$tab( 10) "Frttseruunt: 
auge" 

160 printtab( I0)"*"ye$”einarmiger b 
andit"”pu$”*"” 

170 printtab( 10) "srsrasereneenuntene 
u” | 

180 print1g$cA$cA$cAFcA$"..... copyr 
ight 1985 dillingersoft" 

190 printcy$c4$c4$"drei scheiben dr 
ehen sich. die scheiben” 

200 print”"koennen 

mit der.."rn$"return”"rf$"”"-taste ges 
toppt” 

210 print”werden. 
scheiben ueber-”; 
220 print"ein, so haben sie gewonne 
n. ihr start-"” 
230 print"kapital 
r. pro spiel” 

240 print"werden ihnen 4 dollar abg 
ezogen.” 

250 printye$c4$c4$"dillingersoft wu 
enscht viel spass!” 

260 printir$c4$c4A$rn$"space"”rf$ 


stimmen die drei 


betraegt 60 dolla 
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 Fijinmraermiger Bandilit 


270 geta$:ifa$<>" "then270 


280 a=64:poke49664,0:poke49665,16:p 
oke49666, 32 
290 nrintel$cA$oA$pu$tabl 8)rn$"... 

300 fort=-1t017:printtab(8B)rn$"..... 

Er eg ":next 

310 printhe$c4$c4$c4A$tab( 16)" "rn$"” 
."rf$" "rn$”".."rf$”..” 

320 printtab( 16)” "ng". .."rfg" "rn 

$" "rf$" "rn$" "rf$" 

330 printtab( 16)” "rn$"”..."”rf$"” "rn 

$" "rf$" "rn$” "rF$”..” 

340 ptinttab( 16)” "rn$”..."rf$"..." 

rn$”.."”"rf$"” " 

250 printtab( 16)"..."rn$"” "rf$" "rn 

$”" "rf$" "rn$"” "rf$"”.." 


360 printcA4$c4$c4$cA$cA4$cA$tab( 12) " 


"rn$" "rg" "rn$"” "rf$".."rn$" "nf 
5" a 
370 printrng". ."rf$"” "rn$”.."rt$".. 
380 printtab( 12)" "rn$” "rf$" "rn$"” 
"rfg" "rn$”.."rf$" "rn$".. ."rf$" 
"ang" N 
390 printrf$"” "rn$" "rf$"” ” 
400 printtab( 12)” "rn$" "rf$” "rn$” 
"rf$".."rn$" "rfg" "rn$" "rfg" "rn 
g" a - 
410 Printrfg"” "rn$” "rf$" "rn$"” "rf 
5”. 4} 
420 printtab( 12)" "rn$"” "rf$"” "rn$"” 
“"rf$" "rn$"”.."rf$” "rn$”.."rf$"” "r 
n$; 


430 print" "rf$"..."rn$”.."rf$"” " 


440 printtab( 13)" "rn$"”.."rf$"”..”rn 

5” "rf$"”. N ."rn$" "rf$" "rn$" "rf$" 
"rn$; 

450 print" “"rfg"..” 


460 einthescäagcascaseassngchreaeen 
$ 
4970 fort=-Oto3:printtab(8)pu$rn$". 


"rf$ye$" ' "nu$rn$"” s 2. "rf$ye$" RR 
"pu$; 
480 printrn$”. "rf$ye$"”. .":next 


490 a=a-4:printchr$( 19) tab(20)"”.. 


500 printhe$1lg$tab( 15)"coins:"”a 

510 ifa=<Othen670 

520 poke49664, 16*#( peek( 162) and3) :po 
ke49665, ( peek( 55296) and 192) /A 

530 poke49666, ( peek( 55297) and 192) /4 
:5y549347 

540 e=peek( 1396) :f=peek( 1404) :g=pee 
k( 1412) 

550 printhe$ye$c4$c4$c4$c4$c4$c4$cA 
$c4$04$04$04$04$c4$c4$c4$c4$c4$cA$c 
43$c4$; 


30 


* = »- “ | Er EEE SE EEE SE GE u SE Ze Br SE Ze SL zZ zu; 
. nn 0 8 8 1 rm 
no rn Th herr rm u rn rn m un a u nn ne 


ifle<>f)Jor( f<>g)or(g<>e)then?770O 
ife=83thena=a+t16:goto630 
ife=-73thena=at24:g0oto640 


610 ife=233thena=a+t32:goto650 

120 ara+40:goto66D 

630 print”..... 16 dollar..... ”":goto 
720 | 

640 print"”....24 dollar...... ":goto 
720 | 

650 print” .32 dollar...... ":goto 
720 

660 print" "pu$" joker "ye$"AO dol 
lör- 242% ":g0t0720 

570 printc1$c4$c4$c4$cA$cA$cA$1LE$”" d 


as spiel ist vorueber. sie sind ple 
ite."” 

580 printc4$" wollen sie nochmal sp 
ielen ( j/n)” 

590 geta$f:ifa$g<>" j"anda$<>" n"then69 
IB) 

700 ifa$="j"then280 

710 end 

720 p=-54272:pokep+t2,130:pokep+24,15 
'pokep+5, 15:pokep+t6,5 

730 fort=1t08 

3740 pokept+t1,10:gosub?60:pokep+1,20: 
gosub?60:pokep+t1,30:gosub?60:next 
730 fory-Dto300:next:pokep+24,0:got 
0490 | 

760 pokep+t4,33:fory=-0to50:next:poke 
p+4,32:fory=0to20:next:return 

770 print"kein gewinn............ : 
fFort=0t0o1500:next:goto490 
780 rem maschinen-datas"” Ä 
790 data169,5, 133, 142,133,140,165,1 
41,56,233,40, 133,139, 162,3,160,0,17 
7,139: ° 

800 data145,141,200,192,4,208,247,1 
65,139,56,233,40,133,139,176,2,198, 
140 

810 data165,141,56,233,40, 133, 141,1 
76,2,198,142,202,208,220,96, 162,0, 1 
85 

820 data90, 193,157, 
4,4,208,244,96, 
‚192 


131,5,200,232,22 
169,235, 133, 141,32,0 


830 data172,0,194,169,115,141,58, 19 


2,32,52, 
0,194 
840 data96, 169,243, 133, 141,32,0,192 
‚172,1,194,169,123,141,58,192,32,52 
‚192 

850 data192,64,208,2, 
4,96, 169,251,133, 


192, 192, 64, 208, 2 ‚160,0,140, 


160,0, 140,1,19 
141,32,0,192, 172,2 
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‚194 
860 data169, 131,141 
2,192,64, 
62 
870 data0, 134,198, 142,11 
‚194,173,14 
7,201 
880 data1,208,6,162,0,134,197,24,96 
‚162,0, 134, 139, 230, 139, 208, 252, 232, 
224 
890 data14,208,247,56,96, 32,151, 192 
‚32,67,192,32, 95, 192, 32, 123, 192,32, 
158° 
900 data192,176,242,173,0,194,41,24 
0,205,0,194,240,9,32,67,192,32,78,1 
93 
910 data76,212,192,32,45,193,32,151 
‚192,32,95,192,32,123,192,32,158,19 
2,176 
920 data245, 173,1 
194,240,9,32,95, 
8,192 
930 data32,63,193,32,151,192,32,123 
‚192 RL VERTRETEN 
1,240 
940 data205,2,194,240,9,32,123,192, 
32,78,193, 76 ‚25,193,96,162.16,134,1 
81 
950 data32,78,193,32,95 
192,198, 181 
81 
960 data32,78,193,32,123,192,198,18 
1,208,246, 96, 162, 0, 230, 139, 208, 252, 
232 
970 data224,13,208,247,96,32,95, 105 
‚32,95,252,254,105,233,236,251,223, 
32 
980 data233,223,32,32,83,83,32,83,3 
2,32,83,83,32,32,83, 32, 83, 83,32,74, 
75 
990 data74,75,85,73,85,73,74,75,74, 
75,85,73,85, 73, 74,67, 67, 25, 66, 7a, 75 
‚66 
1000 
1010 
1020 
1030 
1040 
1050 


‚58, 192,32,52,19 
208,2,160,0,140,2,194,96, 1 


‚194,238,91 
‚194,201,48,240,6,165,19 


‚194,41,240,205,1, 


192,32,78,193,76,24 


‚192,32, 
‚208,243,96, 162, 


123, 
16, 134,1 


data66, 
rem 
rem 
rem 
rem 
rem 


126, 124,66,85,67,67,73 
einarmiger bandit 

38911 bytes memory 
04890 bytes program 
00140 bytes variables === 
00000 bytes arrays zer 


En 2 


oe, 24 WOK TI. DER 


1060 rem 00014 bytes strings --- 
1070 rem 33867 bytes free (0) 
1080 rem 


FLOPPY 


Maine wemars. dir. embm WÜRES> Mädle., GENE Mimi (AMMMEE Au dub MAL MRMIRA>  AiiEmade sul Weite Amir: ABER Ammiee WA ARMEE mirärD winter ige wmane 
ara un Mrmen Amann MRS Damme wem Temm miemm WERE deren Mumie (inter deinen Kammer iii Amalie MAMI dummen Muhr Man Gen Sram Am mamma 


DIRECTORY 


Diese Routine für den C-64 mit Diskettenlaufwerk 
(Geräteadresse 8) dient dazu, das Disketten-In- 
haltsverzeichnis ohne Programmverlust auf dem 
Bildschirm anzuzeigen. Nach absclutem Laden 
oder Initialisierung aus DATA-Zeilen steht das 
Maschinensprache-Programm im Kassetten-Puffer 
zur Verfügung, wo es mit “SYS 828“ aufgerufen 
wird. Es ist jedoch bei Angleichung der Adressen 
verschiebbar. 

Während der Bildschirmausgabe kann diese mit der 
CIRL-Taste verlangsamt, mit den SHIFT-Tasten 
angehalten und mit der STOP-Taste abgebrochen 
werden. Die eingebaute Fehlerbehandlungs-Routine 
bricht bei ausgeschalteter Floppy automatisch mit 
einer Fehlermeldung den Programmlauf ab. 

Um die Flexiblität zu erhöhen, ist durch POKE 
883,ASC(X$) die Möglichkeit gegeben, jeweils vor 
der Ausgabe einer weiteren Directory-Zeile das 
Zeichen X$ auf den Bildschirm zu bringen; denkbar 
sind z.B. Steuerzeichen. Darüber hinaus wird vor 
der Kopfzeile kein Zeilenvorschub gegeben. Den 
Abschluß bildet eine “OK“-Meldung. 

Bitte beachten Sie, daß der Kassetten-Puffer und 
somit auch das in ihm befindliche Programm bei 
Kassetten-Operationen überschrieben werden. 


CAR 
LABYRYNTH 


In Ihrem rasanten Sportwagen müssen Sie inner- 
halb einer vorgegebenen Zeit möglichst viele Punk- 
te sammeln. Sie fahren hierzu in einem Labyrinth 
aus Felsbrocken, welche natürlich nicht berührt 
werden dürfen. 

Versuchen Sie, eine möglichst große Fläche mit 
Ihren Reifenspuren zu bedecken, denn auch dies 
gibt Punkte. Hinter manchen Felsbrocken verber- 
gen sich Tanksäulen. Werden diese von Ihnen über- 
fahren, gibt es Extrapunkte und die Tanksäulen 
verschwinden. 

Mit der selbstdefinierten hochauflösenden Grafik 


. ein interessantes Spiel für den guten alten VC 20. 


Achtung! Spiel vor Starten erst absaven! 


% ®_ u. | 7% Kennwort „Hungerhilfe Afrika” 
. | Menschen in Not brauchen Hilfe: 


2 


zuverlässig, schnell, wirksam. Die beiden kirchlichen 


Hilfswerke a ihren Auftrag ernst. 


Deutscher Caritasverband ER 
Posigiro Karlsruhe 202 A 


fesl Diakonisches Werk 
| ME Postgiro Stuttgart 502 


und viele a u. Sparkassen 
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Floppy directory 64 | | =. 


100 rem floppy directory =-===-=-=-=-=64 
110 rem (p) commodore welt == 
120 rem maschinensprache == 
130 rem (c) andreas meissner. == 
140 rem c 64 + 1541/70/71 == 
150 rem ====-=-=-=-=-- == === === mm mm mm 
160 : 

1000 poke53280, 15:poke53281, 15 

1010 printchr$( 147 chr${ 14) chr$(8)c 


hr$( 151); 
1020 printchr$( 18)"Anzeigen der Flo 
ppy-Directory in M.-Sp.” 


1030 print” (C) Februar 1986 by And 


reas Meissner” | 


1050 print" Diese Maschinenroutine e 
rmoeglicht es" 
1060 print”Ihnen, 
e die Disket-" 
1070 print"ten-Directory auf dem Bi 
lAdschirm darzu-"” 
1080 print"”stellen; 
cht also einem" 
1090 print"CATALOG. (mit Fehlerbehan 
dlung!), das in" 

1100 print"BASIC nur umstaendlich r 
ealisierbar" 
1110 print"ist. 
rtable Routine" 


auf einfache Weis 


SYS 828 entspri 


Die schnelle, komfo 


1120 print"laesst sich mit der STOP. 


-Taste ab- und" 

1130 print”"mit den SHIFT-Tasten unt 

erbrechen.Durch"” 

1140 print"POKE883,ASCLA$) wird vor 
der jeweiligen” 

1150 print"Blockanzahl das Zeichen 

A$ ausgegeben; ” 

1160 print”"grosse Flexibilitaet ist 
also gegeben !"” 

1170 print"=========== === === 2 -= 


1180 print"Position: im MOSER LENnN 
ffer (828-964) ” 

1190 print”"aber im Speicher frei ve 
rschiebbar !" 

1200 print"»=>======mz2me==eonnnenm 
1210 print"Aufruf: SYS 828 bzw. 
$O33C sowohl” 

1220 print”"im Direkt- als auch im P 
ropgramm-Modus !" 

1230 print N" === =m===m=m=m=mmezreozmzmmmomoeme 


JSR 


fori=-828t0964 
readx:pokei,x:y=ytx 
next 


1340 ify<>18273thenprint"Fehler in 
DATAs fuehrt zum Abbruch !"”:end 
1400 : 

1410 input"Routine auf Disk speiche 
rn (j/n) ";jn$ 

1420 ifjn$="n"then 1600 

1430 ifjn$<>" j"thenprintchr$( 145); : 
goto1410 | 
1440 open1i,8,2, 
w” 
1450 
1460 
1470 
1480 


"$:ml-catalog/828B,p, 


printf1, chr$( 60) chr$( 3); 
fori=-828t0964 
print#1,chr${(peek(i)); 

next 

1490 closeI 

1500 print:printchr$(5) "sys828”"chr$ 
( 145); 

1600 

1610 poke53280, 14:poke53281,6:print 
chr$({ 145) chr$( 154) chr$( 9) ; 


1620 end 

1700 

1710 

59990 rem=-=====-============= datas 
60000 data 169 ,„ 000 ,„ 133 :rem ab 
828 

60010 data 144 ,„ 169 „ 120 :rem ab 
831 

60020 data 162 ,„ 008 ,„ 160 :rem ab 
834 

60030 data 000 ,„ 032 „ 186 :rem ab 
837 | 

60040 data 255 „ 169 ,„ 001 :rem ab 
840 | 

60050 data 162 „ 196 ,„ 160 :rem ab 
843 N 
60060 data 003 ,„ 032 „ 189 :rem: ab 
846 

60070 data 255 ,„ 024 „ 032 :rem ab 
849 | 

60080 data 192 ,„ 255 ,„ 144 :rem ab 
852 

60090 data DI0O ,„ 169 ,„ 120 :rem ab 
855 

60100 data 032 „ 195 ,„ 255 :rem ab 
858 

60110 data 162 ,„ 005 „ 076 :rem ab 
861 

60120 data 058 ,„ 164 „ 169 :rem ab 
864 

60130 data 008 ,„ 032 „ 180 :rem ab 
867 

60140 data 255 ,„ 165 „ 185 :rem ab 
870 

60150 data 032 ,„ 150 ,„ 255 :rem ab 
873 

60160 data 032 „ 165 ,„ 255 :rem ab 
876 | 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 


Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 


KOSTENLOS! 


serenten, keine gewerblichen Anzeigen. Die kosten 


pro Millimeter DM 5.00 plus Mehrwertsteuer! 


Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes - Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 


behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen 4 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


COMMODORE-WELT kale 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße/Hausnr. 
8044 Lohhof 


Plz/Ort 
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20/64/128 

16 / P4 / 116 

Das unabhängige Commodore- Magazin 

KOMMT REGELMÄSSIG ZU IHNEN 
INS HAUS 


Finden Sie Ihre COMMODORE-WELT nicht am N EEE 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr” END u a: | 
Kiosk nicht beliefert wurde? Kein Problem! Für N... Fe 
. nu innen einer Woche nach Eingang 
ganze 30 DM liefern wir Ihnen per Post sechs - der Abo-Bestätigung durch den 
nügt. Ansonsten läuft dieser Auf- 


N 
z) 


Bestellschein ausschneiden — fotokopieren oder Z” 
abschreiben, in einen Briefumschlag und ab per | trag jeweils für zwölf Ausgaben, 
Post (Achtung: Porto nicht vergessen). COMMO- R rn <_2. wenn ihm nicht vier Wochen vor 
DORE-WELT kommt dann pünktlich ins Haus. II u Ablauf widersprochen wird, weiter. 


UL 
7 
DER TEERE 
N 


c 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO-SERVICE-KART EB 


ss — GOUPON 


Ja, ich möchte von Ihrem Angebot zwölf Ausgaben an untenstehende 
Gebrauch machen. Anschrift. Wenn ich nicht vier Wo- 
Bitte senden Sie mir bis auf Wider- chen vor Ablauf kündige, läuft diese 
ruf ab sofort jeweils die nächsten Abmachung automatisch weiter. 


Ich nehme zur Kenntnis, INDIGO on zn en m nnaee 0 su un ee nen er ze 
daß die Belieferung Vorname | 
erst beginnt, wenn die | 
Abo-Gebühr dem Verlag Straße/Hausnr. 
zugegangen ist. Plz/Ort 
Ich bezahle: 


D) per beiliegendem Verrechnungsscheck 
DJ] gegen Rechnung 
DI bargeldlos per Bankeinzug von meinem Konto 


bei (Bank) undOrtt_____ 


Kontonummer 
Bankleitzahl 
| (steht auf jedem Kontoauszug) 
COMMODORE-WELT Unterschrift 
Abo-Service 7/86 
Postfach 1107 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


8044 Unterschleißheim Unterschift______ 786 


1 


 PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 
DJ Kassette 7(10 DM) DD Diskette 7(25 DM) 


Ich zahle: 
Zutreffendes bitte stikrenzenn 


per beigefügtem Scheck ( ) Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname) | 

Meine Kontonummer 

Meine Bankleitzahl (steht auf jedem Bankaisun] 
Vorname Nachname 


Str./Nr. Plz/Ort 7/86 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Nichtfunktionieren. 


Umtausch bei 


Unterschrif | | 
Bitte ausschneiden und einsenden an 


COMMODORE-WELT 
 KASSETTENSERVICE 7/s6 
Postfach 1107 

8044 Unterschleißheim 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 


Uhr gewonnen. Zusätzlich ver-' 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere: 
wertvolle Preise. Und alle sechs: 


Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu 
gewinnen. Also: Mitmachen. Mit- 
gewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn/Frau 


Straße/Hausnr. 


Plz/Ort 


als neuen Abonnenten der COM- 
MODORE WELT geworben. 7/86 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
Schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats 
sowie der halbjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


Name 

Straße/Hsnr. 

Plz/Ort 

(Bitte ausschneiden und zusam- 


men mit der Abo-Bestellkarte 
links einsenden!) 7/86 


SS 


FLlOPPY 


60170 
879 

60180 
882 _ 
60190 
885 
60200 


888 
60210 


891 
60220 
894 


60230 


897 
60240 
900 
60250 
903 
60260 
906 
60270 
909 
60280 
912 
60290 
915 
60300 
918 
60310 
921 
60320 


924 


60330 
927 
60340 
930 
60350 
933 
60360 
936 
60370 
939 
60380 
942 
60390 
g45 
60400 
948 
60410 
951 
60420 
954 
60430 
957 
60440 
960 
60450 
60460 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


data 


032 


169 


210 


003 


255 


"250 


165 
aa 
168 
152 
1869 
032 


032 


201 


013 


032 


165 


063 


208 


210 


141 


001 


240 


169 


171 


120 


255 


032 


096 


directory 6564 


’ 


rem floppy 


165 


255 
032 , 032 
255 , 160 
032 , 165 
136 , 208 
072 , 032 
255 , 036 
112 , 044 
104 , 170 
032 , 208 
169 , 032 
210 , 255 
165 , 255 
000 , 208 
169 , 013 
210 , 255 
203 , 201 
240 , 015 
203 , 032 
255 , 173 
002 , 04 
208 , 249 
224 , 104 
008 , 032 
255 , 169 
032 , 195 
160 , 106 
047 , 241 
036 
catalog 


: rem 


:- rem 


. rem 


:rem ab 963 


m | an 


ab 
ab 
ab 


ab 


ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 
ab 


ab 


ab 


ab 


ab 


SS ADD. DO 


60190 
60200 
60210 
60220 
60230 
60240 
60250 


rem 
rem 
rem 
rem 
rem 
rem 


rem 


38911 
02482 
00028 
00001 
00000 
36400 


= nm ze u = zu m = zn 2 zz m =. = _ => == 


bytes 
bytes 
bytes 


bytes 


bytes 
bytes 


memory 
program 
variables 
strings 
arrays 


free 


Car Labyrinth 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


(c) 


car-labyrinth 
(p) commodore welt 


20 


wre EHER MÄR WEDER AENBEEE UBM TMRTE> mein CÄRDEER wucie EMDEN MEER GE GARRE 
mem deren dUmEn TU en eben: «rien GENE AUWEM dEmp GEM WiRNMED GENE GniuE qmiiit GENE GRAUE ME 


dimo tabken 
version 2.0 22 z= 
vc 20 + cass/disk= 


grundversion 


ern weine AUEEE GI CUP GEBENED venii> CINE SEAEEEE <umdmin MEERE WiHib IGREREN AUAMHEn mEMNAEhR HMMMEEe Ammann auinatr 


aim Mil: 4pRnDe Mulde MD WERD -ıWaimmab EEE SER ememie (OHED «Adi AENREED AMAndn> (mymib CRD anhand 


hr$( 18) 
10 PEIDESISSARCIRENFT 


a printrng"” einen moment bitte.. 


12 printrn$"” 


printchr$( 149) :cd$=chr$( 17) :rn$=c 


20 poke52,28:poke56, SREOLELDERSZIGE 
:h%=7176 
30 fori=-0t0255:pokep1%+i,peek( 32768 
+i) :nexti 


fory=1t09 


50 fori-0to7:reada: Rohehatıza: nexti 


60 h%=h%+B:nexty 
gosub 1500 
g0t0275 
rem auto links 
dat3a0,0,0,0,0,124, 


80 rem auto -rechts 
85 data0,0,0,0,0,62,255,34 


rem auto rauf 
95 data16,16,24,48,48,48,56, 16 


100 rem auto runter 


105 data16,56,48,48,48,24,16,16 
110 rem barrikade 
115 data255, 


‚255 
120 
125 
130 
135 
140 
145 
150 


rem fahrspur 
data0,0,0,0,16,0,0,0 
rem zapfsaeule 
data8,8,28,34,42,98,98,34 
rem barriere gerammt 
data12,63,63,12, 
rem zielfahne 


129, 


255,34 


129,255,255, 129,129 


ie, 


12,12,12 


37 


Cor Labyrinth 


155 data86,42,86,42,2,2,2,2 
printchr$( 147) :cu$=chr$( 145) 
290 printcu$”....caor labyrinth.... 
| forl1=1t01000:next 

292 fork=7680t07700 

293 pokek,60:pokek-1,96 

294 forl=-1t0200:next:next 
printchr$( 147) 

296 gosub1D00 | 

299 poke36879, 14:printchr$(5) 
poke7933, 1:m=7933 


%10 poke36869, 255 

320 for1=1t0100 

330 b=int(rnd( 1) #506) +7680 

340 pokeb,5 

poke7933,1:nextl 

345 poke36879, 14 

346 fa=5:pt=0:zt=ti:tm=-120 
gosub?7D0O 

350 gett$ 

ifzt<=(ti-60) thengosub2000 
ift$=""then350 
ıift$="h"thenm=m+1:z=1:g0oto390 
ift$=-"f"thenm=m-1:z=2:g0to390 
ift$="b"thenm=-m+22:z=4:g0t0390 
| ift$="t”thenm=m-22:z=3:g0t0390 
380 goto350 | 

ıifpeek(m) -5SthenS500 

ifpeek(m) =6thenpt=pt-25 
ifpeek( m) -?7thenpt=pt+100 
ifpeek( m) =9then600 

pokem,z 
ift$="h"thenw=m-1:t=m+1 
ift$=-"f"thenw=m+1:t=-m-1 


412 ift$="b"thenw=m-22:1=m+z? 
413 ift$="t"thenw=m+t22:t=m-2? 
314 pokew,6 

A200 Forl=1t0o30:next 

A4A pt=pt+25 

445 ifpeek{m) -6thenpt=pt -25 
446 ifpt=7500thentm=tm+60 

450 goto350 

500 poket,8 

510 fa=sfa-1:iffa=0then600 


520 g0t0350 

poke36869,240 

printchr$( 147) 

614 print:print:print:print 

620 print"sie haben";pt; "punkte err 
eicht.” 

650 end 


710 forl=-1t010 

720 b=int( rnd( 1) #506) +7680 
730 pokeb,7:poke7933, 1 

740 nextl | 


745 poke7723,9 

750 return | 
1000 printchr$( 147) 
1005 poke36869, 242 


4010 print"”fahren sie das..._..... la 


byrinth ab, ohne diebarrikaden zu " 
1020 print"beruehren. an den zapf s 
aeulen koennen” 

1030 print"sie punkte sammeln..." 
1040 print"”wenn sie alle felder..au 
sgefuellt haben,” 

1050 print"”fahren sie ihren...... wa 
gen zur zielfahne.” 

1060 print"steuern sie mit "” 


1090 print”...t” 
1080 print” f h"” 
1090 print”...b"” 


1100 print:print”....<<..taste..>>" 
1110 gett$:irft$=""thenI110 

1115 poke36869, 255 

1175 nrintshr$l 147) 

11209 return 

1500 h%=h%+176 

1510 fori=-0t0o7:reada:pokeh%+i,a:nex 


ti 


15701 h%=-h%+128 

1530 Forl=-1t012 

1540 fori=-0t07:reada:pokeh%+ti,a:nex 
ti 

1550 H%=h%:B:nextl 

I56N return 

160: Jatna0,0,0,0,0,0,0,0 

15101 data, 60,36,36,36,36,36,60 
152 data0,24,24,24,24,24,24,24 
153! dataD,60,4,4,60,32,32,60 

1549 data0,60,4,4,28,4,4,60 

1550 data0, 32,32,32,32,40,60,8 

16560 dataD, 60, 32,32,60,4,4,60 

1665 datoe0,60,32,32,60,36,36,60 
1670 dataD0,60,4,4,14,4,4,4 

1680 data0,60,36,36,60,36,36,60 
1690 data0,60,36,36,60,4,4,60 

1700 dataDU,60,36,36,36,36,36,60 
1710 data0,24,24,0,0,24,24,0 

2000 tm=tm-1 

2005 iftm=-0then&600 

2006 iftm=-<10thenpoke36879,8:c1$=ch 
r${ 157) Don 
2010 printhe$"”"p;"”;pt;"” a;"”;fa;” t;” 
;tm;c1$" ” 

2020 zt=ti:return 

2025 rem car labyrinth 20 
2030 rem bei grundversion 
2035 rem die rem zeilen 
2040 rem O bis 7 und 

2045 rem 2025 bis schluss 
2050 rem weglassen! 

2055 rem 2856 bytes program 


2) 


SUPER: 
VOKABEL- 


. LISTING 


TRAINER 


Nach dem Start des Programmes erscheint zunächst 
ein kleiner Vorspann und dann ein Menü. Die 
Menüfunktionen sind auf die Funktionstasten ‘des 
C-16 gelegt. Die Anzahl der Vokabeln muß mini- 
mal 4 Stück betragen und das Maximum ist bei 

120 Stück. 

Die Menüfunktionen im Einzelnen: 


F1 — EINGABE 


Wie es der Name schon sagt, handelt es sich hier- 
bei um den Eingabebefehl des Programmes. Der 
Computer fragt Sie folgendes ab: 

l. Um welche Sprache handelt es sich? 

2. Wieviel Vokabeln wollen Sie eingeben? 

Wenn Sie alles korrekt eingegeben haben, geht der 
Computer in den Eingabemodus. Abwechselnd 
fragt er Sie die deutsche und die fremdsprachige 
Bedeutung der Wörter ab. Dieser Vorgang wieder- 
holt sich so oft, bis die bestimmte Anzahl voll ist. 


F2 —- LERNEN 


Mit dieser Funktion können Sie Ihre vorher einge- 
gebenen oder geladenen Vokabeln lernen. 

Der Computer fragt Sie nacheinander auf zwei 
verschiedene Testarten ab. 


Test Nr. 1: 


Der Computer fragt Sie, welche Vokabeln abge- 
fragt werden sollen: 

l. Fremdsprache (F?2) 

2. Deutsch (F1) 

Wenn Sie auch dies beendet haben, müssen Sie die 
Anzahl bzw. wieviel Durchgänge Sie machen wollen, 
eingeben. Nun können Sie anfangen zu lernen. Der 
Computer zeigt Ihnen ein fremdsprachiges bzw. 


deutsches Wort an, und Sie müssen die entsprechen- 


de Bedeutung eintippen. TED“ — der elektroni- 
sche Schiedsrichter, bewertet dann Ihre Eingabe. 
Dieser Vorgang wiederholt sich, bis die eingegebe- 
ne Anzahl erreicht ist. 


Test Nr. 2: 

Zunächst erhalten Sie (ee bei Test 1) eine kleine 
Beschreibung des Lehrvorganges und dann geben 
Sie wieder die Anzahl der Durchgänge ein. 

Der Computer schreibt zwei fremdsprachige Wör- 
ter und ein deutsches Wort auf den Bildschirm. 
Die fremdsprachigen Wörter sind mit Fl und F2 
gekennzeichnet. 

Welches Wort gehört zu dem deutschen Wort? — 
geben Sie Fl oder F2 ein. 

Am Ende erscheint Ihre Testnote und die Anzahl 
der falschen Vokabeln in Prozent. 


F3 - MEDIUM 


Mit Medium können Sie: 
l. Bei leerem Speicher vorher abgespeicherte Vo- 
kabeln laden. 


2. Vorher mit Fl eingegebene Vokabeln 


abspeichern. 


Wählen Sie nun Fl oder F2... 


1. Load 


Der Computer fragt Sie nach dem Filenamen 

(z.B. Lektionsname) und der Anzahl der Vokabeln, 
um entsprechend Speicherplatz zu reservieren. 
Haben Sie noch alte Vokabeln im Speicher, so wer- 
den Sie gefragt, ob Sie diese löschen wollen (nur 
so kann der Computer laden). 


2. Save 


Um die gewünschten Vokabeln abzuspeichern, 
benötigt der Computer einen Filenamen (z.B. Lek- 
tionsname). Wichtig: Notieren Sie sich den File- 
namen und die Anzahl der Vokabeln (für späteres 


Laden). 


Bücher-Kiste: 


ADRESS-BUCH 


Titel: G64 PEEK+POKE 
Adressbuch. 

Autoren: Hannes Rueg- 
heimer/Christian Spanik. 
Best.-Nr. 929. Verlag: 
Vogel-Verlag KG, Pf. 
6740, 8700 Würzburg 1, 
Tel: 0931/4102-529. 
Bezugsquelle: Buchhand- 
lungen, Computershops. 
Preis: 18,— DM. Techni- 
sches: 164 Seiten — For- 
mat DIN A4 — 4-farb. Ti- 
tel — Softcover 
Ergänzungen: Dieses re- 
lativ günstige Buch ist ein 
ideales Adressennach- 
schlagwerk sowohl für 
den Anfänger als auch für 
den Fortgeschrittenen. Es 
enthält alle wichtigen 
Adressen des C64, der 
Reihe nach geordnet, so- 
daß man in kürzester Zeit 
die gesuchte Adresse fin- 
det. Bei jeder Adresse 
stehen neben Normal- 
wert, einer ausführlichen 
und leicht verständlichen 
Beschreibung, Bitbele- 
gung und einer umfang- 
reichen Erklärung meist 


noch diverse Hinweise ° 


und Beispielprogramme. 
Es werden innerhalb die- 
ses „Adressenlexikons“ 
folgende Bereiche aus- 
führlich behandelt: 
— 6510 Zeropage 
— Video Interface Chip 
— Sprites, Hires-Grafik 
und Zeichensatz 
— SID 6581 
— CIA 6526 
So kann man mit diesem 
Buch z.B. auch systema- 
tisch die Sprite-, Grafik-, 
Sound-Programmierung . 
erlernen. Was noch sehr 
positiv auffällt, ist, daß 
am Ende des Buches alle 
Fachausdrücke erklärt 
werden. Auch ein Stich- 
wortverzeichnis ist ent- 
halten. Insgesamt zeich- 
net sich dieses Buch 
durch die Verständlich- 
keit, den sauberen Auf- 
bau und die. gute Über- 
sıhtlichkeit aus. Man 
kann es vor allem Ein- 
steigern empfehlen, die 
sich ernsthaft mit dem 
C-64 beschäftigen wollen. 


Andreas Thuenimles 


NUTZEN SIE DEN 
KOSTENLOSEN 
ANZEIGENTEIL 
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10 goto 110 
20 dim e$la) :dim d$la) 
30 return 


AD rem 
50 rem 
60 rem 
70 rem (c) by torsten stenzel = 
80. rem version 3.5 40z/ascii = 
90 rem c 16/116/p4 + cass/disk = 
100 rem =====-=--=-=-====== == === ==esemen 
rem: bitte beachten: Großbuchstaben 
im Listing stellen die betreffende 
' n Grafikzeichen auf diesen Tasten d 
ar !! 
110 graphic 0,1 
120 color 4,2,7 


supertest =========16/116/p4 
(p) commodore welt = 


130 g=0 

140 2$="RRARRARRAAARARAARARARARARARARFA 
AHARAAARRRAAAR"” 

150 gosub 2120:g=g+1 

160 a$="----- supertest der vokabelt 
rainer-----":gosub 2120:g=g+1 

170 a$="-------- 1986 by torsten ste 
nzel-------":gosub 2120:g=g+1 

180 a$="---------—- ist geladen----- 
See amgee -gosub 21320:g=-g+1 

i90 ee en 
LREEEEEEEEE”" 

O0 vol 7? 


210 gosub 2120:for i-1 to 4 :s=7 
220 for p=1 to 4 

230 vol s:sound 1,596,9:sound 1,68% 
‚9:sound 1,739,9:s=s-2 

230 vol 2 :sound 


1,596,2:sound 1,685,3:sound 1,739,3 
e50 next p | 
chl s=4 

e?’0 for p=1 to 4 

280 sound 1,596,9:sound 1,704,9:sou 


nd 1,770,9: vol s:s5=5-1 

2930 sound 1,596,3:sound 1,704,3:sou 
nd 3,770,1 

300 ext p:next i:for a=1 to 900:ne 
La 
310 
320 
330 


clr 
scncelr:r=O 
char 1,17,20,"s upertest 


char 1,17,22,”"(c) torsten stenz 


e=-0:3$="menue"”":gosub 2120:a$="- 
":sosub 2120 

a$=-"eingabefl f1)":gosub 2120 
a$=-"lernen( f2)"”:gosub 27120 

ae medium). gosub 2120 
g=-g+r1:a$="press fi,f2 or f3”:go 
2120 = 


key 1 


mar Une Up Munil> wenm Mae Anm MELE Gimme um 


‚ @”:key 2,"W”:key 3,"”E"” 


410 
420 
430 
440 
A450 
A460 
470 
480 


get a$ 

if a$="Q" then 460 

if a$="W” then 720 

if a$="E” then 2240 

goto 410 

scnclr:g=0 

if a>3 then goto 2750 

char 1,17,20,"s upertest 


490 
el” 
500 a$=-"funktion nr.1 
sub 2120 

510 g=-g+t1:a$="fFremdsprache:” 
2120 
520 

530 

120 

540 

SS 

560 

570 


char 1,17,22,"(c) torsten stenz 


-eingabe-":go 


-gosub 


input f$ 
p=eg+ti:a$=-"anzahl der vokabelnf - 
stce.):”":gosub 2120 

input a 

if a>120 then 530 

ıf a<4 then 530 

ensub ZU 

9801 sconclr:g=0 

590 for q=1 to a:let b$=str$(g) :a$= 
e$rb$ 

600 char 1,17,20, 


” 


"supertest 


6130 char 1,17,22,"(c) torsten stenz 
e1” 
620 a$="vokabel nr.":let a$=a$+b$:g 


"et?:ignsub 2120 
&30 »a$=-"deutsch:" 
640 input d$lgqg) 
E50 a$=-f$+"”:":g=g+i:gosub 2120 

650 input e$(g) 

670 if g>12 then g=D:scncelr 

680 next q 

690 a$”-"-----—----—-- ende der eingabe 
= en n-"rg=g+r13:gosub 2120 

700 for z=1 to 900: next z 

710 goto 320 

720 scncelr:if a<1 Ehen gosub 2200:g 
oto 320 

730 g=-0 

740 char 1,17,20, 


:g=-e+ri:gosub 2120 


"supertest 


750 char 1,17,22,”(c) torsten stenz 


el” | 

760 a$=-"funktion nr.2,-lernen-":gos 
ub 2120:g=g+1 

770 a$="test nr.1”":gosub 2120:g=g+1 
780 a$="wollen sie "+f$+"-deutschf( f 
I)oder":gosub 2120 

790 3$="(f2)deutsch-"+f$+"” lernen ? 


":gosub 2120 


800 get p$ 


810 if p$="q" 
820 if p$="W" 


then 1=1:goto 840 
then 1=-2:goto 840 


Supertest 
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830 goto BOO 1220 for s=1 to 900:next s:r=r+i:go 
840 g=-0:scnclr:g=-g+2 ‚sub 1710 
850 if 1=1 then a$=f$+"-deutsch":go 1230 scenclr:next w:g=10:goto 1270 
sub 2120 1240 a$=-"falsch,es war "+e$(z) :g=-g+ 
860 if 1=-2 then a$=-"deutsch-"+f$:go ?2:gosub 2120 

sub 2120 1250 for s=1 to 900:next s:r=-r+1 
870 a$="wieviele woerter w.sie lern 1260 scencir:next w 
en:":g=-g+2:gosub 2120:input u 1270 a$="------- ok test nr.1i ist be 
880 if u<1 then 870 endet -------":gosub 2120:g=0 
890 scnclr:g=2 1280 for p=1 to 700:next p 
900 a$="ich w.ihnen e.wort auf den 1290 scnclr 
bildschirm” :gosub 2120 1300 a$="funktion nr.2 -lernen-":go 
910 a$="schreiben und s.muessen das sub 2120:g=g+1 

jeweilige" :gosub 2120 1310 a$=-"test nr.2":gosub 2120:g=-g+ 
920 a$="fremdspr.oder deuts.wort da 1 | 

zu eingeben” :gosub 2120 1320 a$="ich schreibe ihnen ein deu 
930 a$="viel spass...”":gosub 2120 tsches"”:gosub 2120 

940 for s=-1 to 1200:next s 1330 a$="u.zwei fremdspr.woerter au 
950 for w=1 to u:scnclr:g=2 f den":gosub 2120 

960 color 1,7,4:char 1340 a$="bildschirm-sie muessen nun 
1,0,0, "EOCCELCCCCCCCCltest- -nr. „ICEGE auf fi o.f2”:gosub 2120 
CECECCCCCCeee” 1350 a$="tippen u.so d.richtige loe 
970 char In sung finden."”:gosub 2120 | 
DDDDDDDDDDDDDDDDDDDDDD" 1360 a$="wiev.durchgaenge wol.sie m 
980 color 1,1,7 achen:":g=g+1:gosub 2120: input 
990 gosub 1710 y:g-D 

1000 char 1,17,20,"s upertes 1370 if y<1 then 1360 
t” 1380 for h=1 to y 

1010 char 1,17,22,”"(c) torsten sten 1390 g-O:scnclr:color 1,7,4 
zel” 1400 char 1,0,0, "CECCECCCCCCCCCCtes 
1020 z=int (rnd( 1)*a) +1 t-nr.iiCCCCECECCCECECcEcEc" 
1030 if u=z then 1020 1410 char 1,0, 11, "TCCCECCECECCCECCECcCCcE 
1040 let u=z ECECECECCCCCECCECECECECEEE" 

1050 if z<1i then 1020 1420 color 1,1,7 

1060 if 1=1 then a$=f$+":"+e$(l z):go 1430 gosub 1710 

sub 2120 1440 z=int(rnd( 1)#*a)+1:if z<i then 
1070 if 1=-2 then a$=-"deutsch:"+d$(z 1440 

}:gasub 2120 1450 x=int(rnd( 1)#a) +1:if x<1 then 
1080 if 1-1 then a$=-"deutsch:":g=g+ 1450 
2:gosub 2120:input q$ 1460 let c=q 

1090 if 1=2 then a$-f$+" ":eg=-g+r2:go 1470 if z=x then 1440 

sub 2120:input q$ 1480 g=g+2:a$=f$+":"te$lz)+"(FI)":g 
1100 if 1=1 and qg$=d$(z) then 1150 osub 2120 | 

1110 if 1=2 and q$=e$(z) then 1150 1490 char 1,17,20,"supertes 
1120 if 1=1 then 1190 e" 

1130 if 1=2 then 1240 1500 char 1,17,22,"(c) torsten sten 
1140 stop zel"” 

1150 vol ?:sound 1,700,25 1510 g=g+1:a$=f$+":"+e$lx)+"lf2)":g 
1160 char 1,10,18,"====richtig":for 0sub 2120 

p=1 to 800:next p:char 1,10,18,".. ae q=intt rnd( 1)#2)+1:if q<1i then 
1170 scenclr:vol O:next w 1530 if u=-q then 1520 

1180 goto 1270 1540 let u=q 

1190 vol 8:gosub 1830 1550 if q=2 then a$="deutsch:"”+d$( x 
1200 for s=1000 to 700 step -10:sou ):g=-g+2:gosub 2120:goto 1600 

nd 1,s,1:next s 1560 if q=-1 then a$=-"deutsch: "+d$( z 
1210 a$="falsch, es war "+d$( z):g=g+ ):g>-g+2:gosub 2120:goto 1590 
2:gosub 2120 1570 if c=q then 1520 2» 
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1580 


1590 
1600 
620 
1610 
620 
1620 


1630 
1640 


1650 
1660 
1670 
1680 
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goto 1520 

let c$=-"" 

if q=1 then let c$="f1"”:goto 1 
if q=2 then let c$=-"f2":goto 1 
get b$ | 

if b$="Q”" then 1660 

if b$="W” then 1660 

goto 1620 

if q=1 and b$="Q"” then 1910 
if q=-2 and b$="W” then 1910 


vol 7:for s=-500 to 1000 step 1 


O:sound 1,s,1:next s 


1690 
) 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
4780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


1880 


1890 


”+0$: 


gosub 1830:for p=1 to 700:next 


1880 

1,5,15, 
1,5,13, 
1,5,16, 
1,5,17, 


geoto 
char 
char 
char 
char 
char 
char 
char 
char 


"ENE]" 
"t e d" 
"GW WH"” 
"TQ Y" 
1,5,18, "GJFKH"” 
1,5,19, "J3---K" 
1,5,14,” 1" 
1,5,20,” N mM" 
char 1,5,21,"”0 pP” 
char 1,5,22," 
char 1,5,23, "=====" 
char 1,5, "GU-IH" 

char 1,5,16,"6 H” 

char 1,5,14, u” 

char 1,10,18,”===falsch" 
return 

gosub 1830 
r=er+1:g=g+1:3$="falsch,es war 
gosub 2120:for p=1 to 600:next 


18, 


p:next h 


1900 
1910 


ext p 


1920 
1930 
1940 
1950 


beendet ----"” 


1960 
1970 
1980 
1990 


falsch" 


2000 
e01I0 
2020 
2030 
2040 
2050 
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goto 1940 
vol 7:sound 1,700,15:char 1,10 
=====rjchtig":for p=-1 to 700:n 


char 1,10,38B,” 2:3... 4 Be 
next h:goto 1940 

senclr:g=4 

a$="--- Funktion ı nr.2 -lernen- 
:gosub 2120 
l1=int( I100/( y+tu)*r) 

v$=str${(1) _ 

for p=-1 to 500:next p 

a$=-"sie hatten "+tv$+"% d.voka. 
-eg=-p+r2:pgosub 2120 

1>5 and 1<15 then n>2 

1<5 then 
1>14 and 
1>29 and 
1>49 and 
1>59 and 


if 
ıf 
if 
if 
if 
if 


n=) 

1<30 then n 
1<50 then n= 
1<60 then n 

1<70 then n 


2060 
2070 
2080 


if 1>70 then n>6 
let- n$=str${n) | 
a$="ihre testnote ist "+n$:g=g 


+1:gosub 2120 


2090 


"_kenntnisse 


2100 


g=g+2:a$=-"ich hoffe ihre "+f$+ 
":gosub 2120 


"sind jetzt etwas besser... 


a$= 


":gosub 2120 


2110 
[8] 

2120 
2130 
2140 


2150 


2160 
2170 
2180 
2190 
2200 


kabeln" 


2210 


for p=1 to 1000:next p:goto 32 


f=0 

vol 7 

char 1,1,g,left$(a$,f) 

let b=len (a$) 

sound 3,800,1 

if f>b then g=-g+ti:vol O:return 
f=f+1:if f>40 then f=0 

goto 2140 

g=1:3$="ich habe noch keine vo 
:gosub 2120 | 

a$="im speicher...... error...! 


'":gsosub 2120 


2220 for t=1 to 600:next t 

2230 return 

2240 scnclir:g=O 

2250 char 1,17,20,"”supertes 

Lt” 

2260 char 1,17,22,"(c) torsten sten 
zel"” | 

2270 a$="funktion nr.? u = 
sub 2120 

2280 a$="wollen sie (f1i)laden oder 

(f2)saven ?":g=g+2:gosub 2120 

2290 get b$ 

2300 if b$="W” then 2330 

2310 if b$="Q" then 2510 

2320 goto 2290 

2330 if a<4 then scnclir:gosub 2200: 


goto 320 

2340 ne saven-kas.in rekorder einl 
egen -gosub 2120: en L 

2350 - name des files:”:gosub 212 
O:input n$ 

2360 a$="notieren sie sich den file 
name” :gosub 2120 

2370 a$="und d.anzahl der vokabeln- 
":gosub 2120 | 

2380 3$="({fuer spaeteres laden...!! 


!)":gosub 2120 


2390 b$=str$(a) :a$="es sind..."”+b$+ 
" stc.”:gosub 2120 
2400 open 1,1,1,n$:for g=-1 to a 


2410 
2A2D 
2A30 


2440 


2450 


2460 


print#1,e${g) :next g 

close 1 | 

open 1,1,1,n$:for g=-1 to a 
print#1,d$(g) :next g 
print#1,f$ 

close 1 


Mjnnrotaurucgngs > 
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2490 scnclr:g=14 

2480: 58$=" >> + een ende save-- 
ses" 7gosub 21720 

2490 for p=1 to 600:next p 

2500 goto 320 

2510 if a>2 then goto 2650 

ee -kas.in recorder 
einlegen :gosub 2120 

2530 3$= "anzahl der vokabeln:":gosu 
b 2120:input a 

2540 dim e$(a) :dim d$l a) 

2550 a$="name des files:"”:gosub 212 
O:input n$ 

2560 open 1,1,0,n$:for g=1 to a 
2570 input#1,e$(g) :next g 

2580 close 1 

2590 open 1,1,0,n$:for g=1 to a 
2600 input#1,d$(g) :next g 

2610 input#1,fr$ 

2620 close 1 

2630: senelr:g=-14 335-7 - + 7 
ende 10a ren gosub 212 
0 

2640 for p=1 to 600:next p:goto 320 
2650 scnclr:g=2:3$="der vokabelspei 
cher ist voll...":gosub 2120 

2660 a$="wollen s.die alten vok.loe 
schen{ f1=ja)?":gosub 2120 

2670 get a$ 

2680 if a$="Q"” then 2710 

2690 if a$="" then goto 2670 

2700 goto 320 

2710 a$="ok...ich loesche...":gosub 
2120:for p=1 to 600:next p 

2720 cir 

29730 scnclr 

2740 goto 2510 

2750 scnclr:g=2 


2760 


a$="der vokabelspeicher ist vo 


il,soll ich":gosub 2120 


2770 


a$="neu starten (f1=-ja)?":gosu 


b 2120 


27860 
2790 
2800 
2B10 
2820 


2830 


2840 
2850 
2860 
2870 
2880 


2890 


get b$ 

if b$-"" 
if b$=-"Q" 
goto 320 | 
rem supertest ==-=-=-===16/116/p4 
rem 48383 bytes memory == 
rem 08199 bytes program == 
rem 00122 bytes variables == 
rem U0O009 bytes strings == 
rem 00000 bytes arrays == 
rem A0053 bytes free 


rem TU SEE ER MIR 2 DEE MSIE MOEE SEE GONE SAN AUEE SEME SE MEER AMEE 0 2UED WERE AES "WIE EUES SEE SE SER De 


then 2780 
then clr:goto 10 


220 


10 rem == minotaurus =-====-=-=-=-=-=-=== 
20 rem (p) 07/86 commodore welt = 
30 rem ===>====-===>=-=========m === === 
40 rem (c) 06/86 cw-team = 
50 rem c16/116/plus 4 = 
60 rem ==-=-==-=-=-=-====2==== === mm 


70 c4$=chr$( 17) :c2$=chr${ 145) 

80 c3$=chr$( 29) :c1$=chr$( 157) 

90 trap 110:zb=1000 

100 color1i,1:colorO,2,3:culor4,1 
110 graphicil,1 

120 char,0,0,”"” 

130 sshapem$,0,0,4,4:gshapem$,0,0,4 
140 sshapep$,2,2,3,3 


150 forz=1to ?23:fors=0t039 

160 x=int(rnd( 1)*2) :char,s,z,chr$f( 1 
6A+x) 

170 next:next 


180 
190 
200 
210 


draw,0,8 to 319,8 
draw,0,192 to 319,192 
x=155:y=-194:gshapem$,x,y 
ti$="00000N0" 
getkeya$:gshapep$,x+t1i,y+t1,3 

if a$=c3$ thengshapem$,x,y,4:x= 
gosub300:x=x+4:gshapem$,x,y,4 
if a$=c1$ thengshapem$,x,y,4:x= 
:g0sub300:x=x-A:gshapem$,x,y,4 
if a$=c2$ thengshapem$,x,y,4:y=' 
gosub300: y=-y-4:gshapem$,x,y,4 
if a$=c4$ thengshapem$,x,y,4:y= 
gosub300: y=-y+t4:gshapem$,x,y,4 
ify=-186then drawOü,x,y+t6 to x+4, 


230 
x+t4A: 
240 
x—-4 
250 
y-4: 
260 
y+tä: 
270 
ytb6 
280 ify=2then drawO,x,y+t6 to x+4,y+ 
6:g0t0330 
290 goto220 
300 gshapem$, x 
eturn 

310 goto110 
320 rem # zeitauswertung * 

330 zn=int(ti/60) :if zb>zn then zb>= 
zn 

340 paint,0,0 

350 char,0,0,"neue zeit:"” 
‚mid$( str$( zn) ,2) 

360 char,23,0,"beste zeit:" 
‚O,mid$( str$(zb),2) 

370 char,0,2A4,"noch ein spiel j/n"” 
petkeyf$ 

380 if f$="j"” then goto 110 

390 if f$<>"n" then goto 370 

AOO graphicü:end 


‚Y,‚4:gshapem$,x,y,4:r 


:char, 11,0 


:char, 35 
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ER OSR. 


DEN 


MODORE- 
_ WELT-SPECIAL: 
AM GUTEN KIOSK 


ODER IM BAHN- | 


HOFS-BUCHHANDEL 
= TELEFONSERVKE & 


Alle Experten der COMMODORE-WELT stehen 
unseren Lesern jeden Mittwoch zwischen 
16.30 und 20.00 Uhr zur Beantwortung aller 
Fragen zur Verfügung unter der Telefonnum- 
mer 089/1298013. Ebenso der Abo- und Kas- 
settenservice. Einfach anrufen 089/129 80 34! 


Fortsetzung von Seite 9 


Auch unser Listingdrucker zeigte Selbständig- 
keit. Er war offensichtlich davon überzeugt, 
daß er in Near-Letter-Quality das mathemati- 
sche Zeichen „Pi” nicht auszugeben braucht. 
Nach eindringlicher Überredung, sprich genaue- 
ster Einstellung, spielt er nun doch mit. Daher 
hier noch einmal die Zeile 310 des Listings zu 
„‚Kreisdiagramm’”': 

3170 1 = 1:C=2*n/100 

Und damit auch in Saarbrücken, in der Schutz- 
bergerstraße 16, der Hausfrieden wieder her- 
gestellt ist: Der Vorname unseres Autors von 
Seite 62 ist Hartmut, nicht Helmut. 

Helmut ist der Papa. 


Ad 


10 rem painier -=+====-=-========>==12B 
20 rem ip} commodore welt team ts=- 
I9 som = - rue erkmuesemmecmecsceamene 
30 rem (cc) by 

sn rem aljoscha schwarz = 
60 rem = 
;O rem version 7.0 4A0z/ascii = 
80 rem 128 pc/pcecd + 1570/1571+joy 
G0 rem ===u=sr-n-umemnenereeneeememen 


100 wh$=chr${ 005) 

110 fori=-1t067:reads:s$=s$+chr${(s): 
next:sprsavs®$, 1:praphich, 1 

120 fori-Cto5:colori,1:next:color], 
2:x=160:y=8N0:51=26:s2=28:r*1:m=163: 
traepB40 

130 a$=-"":printwh$”"beschreibung ( j/ 
n3?"”:duuntila$<>"":geta$:loop:ifa$- 
"j"then 300 

:A0 graphic], !:gosub9IO0 

;50 graphic1,0:sprite1,1,2,N0:movspr 
1,160, 80 | 


I6N remtttt bewegen Hirten 
170 a=joyfl 2) | | 

18N itfy>manda>Bthend20 

i90 iFa>8lhen310 | 
200 ify>270ihen:x=150:y=B0:gosub960 
2I0 ifa=1theny=y-1 | 

22.0 1 fa=2theny=y-1:x=x+1 

2230 ıfa=dthenx=x+ti1 

2A Afa=4dthenx=xtil:ysy+] 

250 ıfa=Stheny=y+t] 

en) ifa=shbthenysyti:x=x-1 

270 ifa=?7thenx=x-1 

280 ifa=döthenx=x-1:y=y-1 

290 mavspri,xrs1,y+ts2:poto170 

300 rem***t*t malen HFreautueeuern 
310 ifa=-1?79theny=y-1 

320 ifa=130theny=y-1:x=x+] 

330 irfa=-13ithenx=xt+ti 

SAC ifa=-192thenx=x+tl:ysy+t1 

350 3 fa=-133thenyry+i 

360 ıfa=134Atheny=-y+1:x=x-1 

370 ıFa=195thenx=x-1 | 

Jen ı Fa-126thenx=x-1:y=y-]1 

394 movspri,x+tsi,y+ts2?:iff=1thenpain 


t1,x,y,il:else:drawr,x,ytox+p1,y+tp2 
A0N goto1?0 5 

AID rem*#F menuepunkte FFTHERRERT 
470 rem: :text oo. 
430 ifx>bandx<75andy>1B5then44U:els 
e460 | 
440 grasphicO, I:input" 
ngzut” zeilre: ” 


= 


450 graphjiel1,0:chari,t2,:1,t:$:gotol 
70 | 
3#,0 rem: :pinsel 

a7u iAfx>Sbandx<75andy<180then480:els 


text : ";t$:i 
;t13:input”spalte: "”;t 


e550 

A80 graphicQ,1:print”. .pin« sel :" 
490 print:print”1 "print" Ai 
:print”3 : B":print"”4 -" :getkeyp 


500 ifp=-1Ithenp1!=-0:p2=0 

510 ifp=2thenp1=-5:p2=-5 

520 ifp=-3thenp1l=0:p2=-5 

530 ifp=-4thenpi=-5:p2=0 

540 graphicr1,0:g0t0170 

550 rem: :radieren | 

560 u a 
1se600 


570 ifme=-landr=-Othenr=1:g0t0170 

580 ifr=Othenr=-1:ifme=-Othenchar!,18 
‚21,”8":g0t0170 | 

590 ifr=1thenr=0:;fme=Othenchar!1, 18 
‚21,"”W” :g0t0170 

500 rem:: menue loeschen 

8IN ifx>75Sandx<155andy>18B5Sthen620D:e 

1se640 

620 box0,0,162,320,199,0,1:m=300:me 
=1: goto1m 

530 rem:: neu 

540 i1x>16Bandx<22Dandy> 18ßthenrun: 
alsegoto670 

550 run 

560 rem:: ausmalen 

670 ifx>230andx<31Dandy<180then6ßO: 
else?00 


680 iff=1thenf-O: ifme=-Othenchar1,37 
‚e1,"W”:goto170 

590° iff=-Othenf=1: ifme=Othenchar! ‚37 
‚21,"9Q”:g0t0190 

700 rem:: farbe 


70 ifx>165andx<220andy«180then?20: 
e) se?60 

720 graphic0, I:print". 
730 print: print"s siehe 

tel 4-35,color-befehl" 
740 print:input” --> ";c1:ifc1=Othe 


.farbe..{ 1 - 


handbuch kapi 


nc1=2 . 

750 graphic1,0: eoleri ‚el:colorA,c!: 
goto170 

760 rem:: disk 


770 ifx>230andx<310andy>185then?7BO: 
else820 

780 graphic0, 1:directory:input 
 "%b$:ifb$=-"/"thengraphic! 


“name 


O 
790 input”({1l)aden oder 
(s)peichern";s$ 

800 ifs$="1"thenbload(b$) ,‚p7168:me= 
1:m=300 

810 ifs$="s "thenbsave(b$), p7168top1 
6384 

820 graphic1,0:g0to170 

830 remtt#t#srtt fehler ##rrtHtız 


‚B:goatv17 


MALER- 


MEISTER 


Ein Luxus-Malprogramm wartet hier auf die Künst- 
ler. unter den 128er-Besitzern. Mittels Joystick 
können Sie wunderschöne Grafiken erzeugen, diese 
auf Disk ablegen und später weiterbearbeiten usw. 
Eben mit alledem, was sonst nur ein Profi-Grafik- 
programm auszeichnet. Sie können zwischen vier 
verschiedenen Pinselformen wählen, vom feinen 
Strich bis zur groben Schraffur. Es stehen selbstver- 
ständlich alle Farben des 128ers zur Verfügung, 
diese werden mit dem Joystick aus einem Unter- 
menü abgerufen und können natürlich gleichzei- 
tig in Ihrem selbsterstellten Bild verwendet werden, 
so daß selbst farbenprächtige Sonnenuntergänge 
zum Kinderspiel werden. Sind Sie mit Ihrem Bild 
fertig oder wollen Sie Ihre Kreativität unterbre- 
chen, ist es jederzeit möglich, das Werk auf Disket- 
te unter einem frei wählbaren File-Namen abzule- 
gen, um es später zu verändern oder einfach nur 
staunenden Mitmenschen vorzuführen. 

Ein besonderes Schmankerl: Sie können in Ihre 
Grafik beliebige Texte per Tastatur einbeziehen, 


so werden auch technische Zeichnungen mit dazu- 


gehöriger Beschriftung einfach und schnell erstellt. 
Die üblichen Features wie Ausmalen, Radieren usw. 


beherrscht Painter natürlich auch. .. 


MUSIKER 


Machen Sie einen Synthesizer aus Ihrem Plus/4: 
Supersound macht’s möglich. Ob- Sie ‚‚nur‘“ 

Klavier spielen oder mit sämtlichen Effekten wie 
Meeresrauschen und dergleichen arbeiten wollen, 
mit Supersound kein Problem. Sie können aus um- 
fangreichen Menüs das Programm nach Ihren Wün- 


. schen arbeiten lassen und werden bald merken, wie 


einfach Supersound die Tonanimation per Compu- 
ter macht. 

Wenn Sie außerdem auch Interesse an vorgefertig- 
ten Klangmustern haben: Auch diese wurden bei 
Supersound berücksichtigt. Sie Können nun alle 
Soundeffekte nachspielen, wie sie bisher nur von 
neuen Telespielautomaten produziert werden. 

Für creative Menschen also genau das richtige. 


2 TELEFONSERVKE © 
Alle Experten der GOMMODORE-WELT stehen 
unseren Lesern jeden Mittwoch zwischen. 
16.30 und 20.00 Uhr zur Beantwortung aller 
Fragen zur Verfügung unter der Telefonnum- 
mer 089/1298013. Ebenso der Abo- und Kas- 
settenservice. Einfach anrufen 089/12980 14! 
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Pointer ı28 


ifx>320thenx=320: resume 
ifx<Othenx=D:resume 
ify>199theny=-199: resume 

870 ify<Otheny=U:resume 

880 graphicO, 1:printerr$(er) :help:g 
etkeye$:graphic1,0:goto170 

890 rem*#*#*#* menue zeigen #FHF### 


900 char1,0,20, "TEECCECCECCECECCECCCCECEE 
COCCCECCCECCECECCEECCCEEEc" 


910 char1,0,21,"B pinsel B radier 8 
B farbe B ausmal W B" 

920 char1,0D,22, "TECCCECCECCCECCcCcCcCccCcE 
CEECCCECCECCCECCEECCCECcEc" 

930 char1,0,23,"B..text..B menue °. 
.B..neu..B...disk...B" 

940 char1,0,24, "TECCCECECCECECECECECECECEEE 
CECCCECECCECCCCEECCECEEC" 

950 return 

960 graphicD, 1I:print"..... menuepunk 
te :"”:print 

970 print”1-pinsel”:print"2-radiere 
n”:print"3-farbe"”:print"4-ausmalen 
"print | 

980 print"5-text”":print”6-menue °": 
print”?7-neu”:print”8-disk"”:getkeyp 
990 ifp=-6thenme=-0:m=-163:graphic1,0D: 
gosub890:goto17O 

1000 graphic1,0:0npgoto480,570,72D0, 
680,440,620,650,780 

1010 graphic1,0:return 

1020 remt!t*t da tt a Fazer 

1030 data 0,0,0,0,2,0,0,2,0,0 

1040 data2,0,0,2,0,0,3,240,0,4 

1050 data0,0,8,0,4,16,0,12,32,0 
1060 data12,64,0,12,128,0,13,0,0,14 
1070 data0,0,15,248,0,15,240,0,0,0 
1080 data0,0,0,0,0,0,0,192,0,0 

1090 data1392,0,0,23,0,20,0,0,0,0 
1100 rem#*##*# beschreibung *#*#### 
1110 graphicO,1:char1,10,0,"beschre 
ibung”, I:print:print 

1120 print"malen 
en und mit ” 


840 
850 
860 


1130: print": 4224 feuerknopf malen 
oder menue-...:........ punkt anwaeh 
len” | 


1140 print”menue 
r,ausmal,” 

1350 print”....... farbe,menue” ‚disk 
‚neu.” 

1160 print"pinsel:auswahl von 4 str 
ichstaerken"” 

1170 print"text..:einfuegen von tex 
t in grafik" 

1180 print"radier:ein und ausschalt 
en werden " 

1190 print”....... durch einen punkt 


angezeigt "” 
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:pinsel,text,radie 


mit joystick lenk 


1200 print"ausmal:wie bei radier. w 


ichtig: wenn 

1210 print"”....... das ausmalen nich 
t innerhalb..” 

1220 print”....... einer umrandeten 
flaeche ein- " 

1230 print”....... gesetzt wird, ist 
das bild nur” 

1240 print"....... noch zu retten we 
nn man schnell" 

1250 print”....... <run/stop> <resto 
re> drueckt, ” 

1260 print"”....... und dann mit ’got 
o 50° startet.” | | 
1270 print"farbe :16 farben zur aus 

wahl” 

1280 print"menue“:das menue wird ge 
loescht; man "” 

1290 print”....... kann dann die pun 
kte waehlen, " | 

1300 print"”....... indem man mit dem 
pfeil aus...” | 
1310 print"”....... dem unteren rand 

faehrt....... 7 


1320 print"”disk..:bild speichern od 
er wieder laden" | 

1330 print"neu...:bild loeschen.."”; 
1340 a$="":dountila$<>"":geta$: loop 
:geraphicd, 1:goto130 

1350 rem painter 
1360 rem 122365 

1370 rem 004688 

1380 rem 000000 

1390 rem 000000 

1400 rem 000000 


memory == 
program == 
strings -. 
arrays == 
variables == 
053582 free (0) -- 
064097 free (1) == 


m mn m = 2 u u u a u u u m m m m zz m m m mu = 


410 rem 
rem 
rem 


1420 
1430 


5 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 


130 


q 


140 


q 


‚cem 


upersoumd 


rem supersound -==-=-=--=-----====p4 
rem (pP) 01/065 chm revue team u 
rem 
rem (c) 08/85 by A 
rem jochen lellesch | = 
rem = 
version 3.5 

plus/A + 1531/1541 


amUNebt 4Uumen EIEBR SUUEBWED <odumm ÄMDEE "DEADER Mumie: SEM EEE dis CEMEEE> «mama, SREHEE> GMENEED AED GEiMENS Cie GEHEIME -UEMdeip seEHHN. SEAN  -Tunaide MENRED FANEES nameD SEEEER uanmu 
WARE «ie: «AED GEEEEEn AuMaeEm GUEENEG AiiiED muine? MAGEN AURMED TEN SER AufuindE -EaENHEn dimimam mumiiiD GENE AMMENHE> TERM nAMED Muh AEEEiD aan: WUNBHR ARMMER arme ARMEE VOR 


ZuzZ=27 Sn Zıssmo ma mm om vo zzuı 


rem 
rem 
z1$=chr$( 96) Ä 
di$=chr$( 109) :d2$=chr$( 110) 
forg=-1t040:q1$=q1$+z1$:nextgq 
forg=-1t020:q2$=q92$+d2$+d1$:next 


forq=1t020:q93$=q3$+d1$+d2$:next 


1230 printd1$"*...... (). 
lellesch...... #"q42$; 
1240 printd2$"** ee er en Eure 

MEERE PERS ##"g41$; 
1250 printdi$"#...... nun eneunn ar 


1270 Pintd2g"auneuneeenuenaunnnen 
BE ÄEHITIEINIHTIENE" | $; 


1280 printg3$; 

1290 fori=-0t05000:nexti 

1300 rem #HHHHHH4ttittt menue # 
1310 x=400 

1320 do 

1330 sound1,x,1:x=x+5 

1340 jocpuntils=- =900 

1350 sound1,900,50 


1000 scnclr:vol5 
1010 
1020 
1030 
REUENUERHURNUHEEUET GIS: 
1040 
IE EETEICR IE VNEHERN ER #u44”g41$: 
printdi$"*=*..... 
EEE TIERES SEIFE wa2#"g2$; 
printd2$"*#...... 
d...16....%*#"d1$; 
printdi$"###..... 
ee ar wsum"g2$; 
printd2$"#uu#,... 
#ERE”d1$; 


printq2$; 


TEILTE U IE IE SEE IE IE IE SR IE IE d2$; 


printd2g"s#ze. 


sound1,917,75:sound2,810,75 


printdi$g"seuesueuuunueeunununee 


.- um 88 07 8 rn a vb eo 


080 2.2 8 2 88 er 8 a an m 


.-» u an 8 - o-*— » -— eo 0 8 8 » 


pr intdi $ EEE EN ENTE UN IE 


1100 sound1,810,75: sound2, 5396, 75. 


1110 printd2g"” ee 


gramm VOR ir ”"qd2$; 
1130 printd2$"##...... 
re edge *2”g1$; 


IE EUR RER NG ER ##4"42$; 
1150 printd2$"”#*#. 


.j o chen....l 


elle sch ##"di1$; 

1160 printdi$”"*#......... nn ueeennn 
a ee ee %2"g42$; 

1170 printd2$"”"........ 2-22 20er nunn 
Een PETE | I- 

1180 


U EHUH" ADS 
1190 soundi, 
1200 printd2g"*x BSR: 
EEE NT RR RER ##”41$; 


ee es #ErgiS; 


pr intdi1$” HHHHHRRHHHHSHHRRHÖHSHENEN 


596, 75:sound2, 169,75 


1360 
or 4,1 


1370 print:poke 194,1 
1380 Beine E ad a ans 


9:0 2 8 08» 8 8 uw u. ee Te 88 0 5 8 ea 


1390 poke 194,0:print 
1400 print: Srint 

1410 print"”....... Tal 
1420 print 

1430 print” che 2 Ze 
ekte” 
1440 
1450 
n"” 
1460 
1470 
1480 
1490 
ound” 
1500 


print | 
BEINE" .;..225% 3.. 


print 
DEIN?’ ...20%44 A.. 
print 
print”....... ee 


print:print 
1510 print" 
1520 x=-900 
1530 do 
1540 soundil,x,1:x=x-5 
1550 loopuntilx=400 
1560 getkeya$ 

1570 
6840 
1580 
250 
1590 
940 
1600 
800 
1610 
870 
1620 
1630 
1640 
94,1 
1650 
1660 


goto1560 
scnclir 


print 


bitte taste 


DEFINE 2. 


scncir: color 1,3:color 0O,1:col 


klavier"” 


specialeff 


kombinatio 


powerplay" 


joystick s 


druecken "” 


ifa$="1"thensound!, 169,5:goto1 
ifa$="2"thensound1,596,5:goto2 
ifa$="3"thensound1,810,5:goto3 
ifa$="4"thensound1,917,5:g0t04 
ifa$="S"thensound1,999,5:g0t06 


rem FFFFHrrtTtttitit Klavier * 
:color 1,6:print:poke 1 


klavier... 2» 
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1670 poke 194,0 

1680 print:print 

1690 input”...lautstaerke (1-8)..”; 

a 

1700 ifa<lora>8then 1640 

1710 vola 

1720 print:print 

1730 print"”spielen sie mit den tast 

en :"” 

1740 print 

1750 print" 

1760 print 

1770 fori=1to1000:nexti 

17860 goto2060 

1790 getkeym$ 

1800 ifm$=-"qg”thens=169 

1810 ifm$=-"w"thens=262 

1820 ifm$=-"e”"thens=345 

1830 ifm$=-"r"thens=383 

1840 ifm$=-"1"thens=215 

1850 ifm$=-"t”"thens=453 

1860 ifm$=-"2"thens=303 

1870 ifm$="y"”thens=516 

1880 ifm$=-"4"thens=418 

1890 ifm$=-"u"thens=571 

1900 ifm$=-"5"thens=485 

1910 ifm$=-"i"thens=596 

1920 ifm$=-"6"thens=543 

1930 ifm$=-"o"thens=643 

1940 ifm$="8"thens=608 

1950 ifm$=-"p"thens=685 

1960 ifm$="9"thens=664 

1970 ifm$=-"$"thens=704 

1980 ifm$=-":"thens=722 

1990 ifm$=-"+"thens=739 

2000 ifm$=-";"thens=754 

2010 ifm$=-"#"thens=784 

2020 ifm$=-"s"then2710 

2030 if m$="m"then1360 
2040 sound1l,s,20:sound?2, 169,20 
2050 g0oto1790 

2060 scencIr 

2070 printspc( 250) :printspc( 110) :pr 
int” 
B..B..B..B..B..B..B..B..B..B..B..B. 
.B” 

2080 color 1,1:color O,2:color 4,2 
2090 print” B..B..B..B..B..B..B..B. 
.B..B..B..B..B” 

2100 print” B..B..B..B..B..B..B..B. 
.B..B..B..B..B"” | 

2110 print” B..B..B..B..B..B..B..B. 
.B..B..B..B..B” Ä 
2120 print” Bq Bw Be Br 
Bo Bp B$ B+ B"” 

2130 print” 
FCECEFCEEFCEECFECEFCEFECFECFECECFECECFECEFECCFC 


q bis +’ " 


Bt By Bu Bi 


‚48 


IH 


2140 print chr$( 19) 


#KHBHAHADB HA GH OH 


2160 print” 4 


#BARHAH 


# 


2180 print" # 
#BAH CH 
2190 print” #4 
#BHHAHCCOH 


2200 


98 


2210 


BB DB BB BB 


2220 
2230 
e” 

2240 
2-5 
22760 
2270 
‚„’ 

2280 
2230 
2300 


320 
2330 


21970 print” # 
B 4 


# 


print" 


; 
print” 


Ä 


1 
4 


B 


# 


ıDm ıW n -— n - u - — 


B 


B 


B 


print chr$( 19) 


print 


5 >= 


g0oto1790 


sc:nclr 


# 


[28 38 
U RI 0 8 


DO 
OD 


‚2150 printspc(80) :print" # #4 B # 


Ba 4 
»B aM 
Ba a# 
04 
6 BB 
BB B 


rem ##rt32:#% spezialeffekte * 


color 1,11,6:color O,1:color 4 


arint 
poke 


194,1 


- - [2 [2 ® - nn... m 00 oe 


poke 194,0 


print:print 
spielen sie mit den tas 


print” 


ten I bis 8 
print” die spezialeffekte aus 


2340 
ra" 
2350 
2360 
2370 
2380 
2390 
2400 
ea10 
2420 
2430 
2AA2D 
h” 
2450 
2460 
h"” 
2470 
2480 
2490 
2500 
sch" 
2510 
2520 
sch" 
2530 
2540 


print:print 


er 


print”...bitte warten 
fori=-1t02500:nexti 


senclr 
print 
print” 
print 
print" 
print 
print" 


print 
print” 


print 
print" 
print 
print” 


print 
print” 


print 
print” 


. . eo oe . 


=..rausch 


.„.tief 
..hoch 


..tief 


„.hoch 


..tief + 


.„.rausch 


spezialeffe 


rausc 


< rau 


.=..dreiklang (h 


Daran 9% 


Supersound 


intereinander)” 


2550 
2560 
2570 
2580 
"-a$ 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
...e®e 
2720 
3 
2730 
bye 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
ch 
2890 
2900 
2910 


2920 
.c 


2930 
2940 
2950 
2960 
2970 
2980 


print 

print"”..... e...=..ende” 

print 

input”...bitte taste druecken 
ifa$="1"then2850 
ifa$=-"2”"then3000 


ifa$="3"then3140 
ifa$="4"then3250 
ifa$="5"then3370 
ifa$=-"6"then3460 
ifa$=-"7"then3560 
ifa$="8"then3650 
ifa$="9"thenrun 
ifa$="O"thenrun 
ifa$="e"”"then2710 

g0t02580 

scenclr:char 1,1,10,".......... 
n d e"” 

color 1,9:color 0,7,5:color4,7? 


char 1.1.1927 22224 good 


vol6 

sound 1,810,30:sound1,834,30 
sound 1,854,30:sound1,864, 30 
sound1,881,30:sound1,897,30 
sound1,911,30:sound1,917,275 
x=500 | 
do:sound2,x,5:x=x-10 
loopuntilx<20 
color1,1:colorO,2:color 4,13,5 
scnclr 

end 

rem #884 ##48%# tjef > hoch * 


scnclr 
Print ,,»24, 22 ee tief > ho 


print:print 

input”...tiefste zahl ";a 
input” hoechste zahl "”;b 
input” schrittweite (1-50) "; 


print:print”..okay 
rem #######20##4# schleife # 
sound1,a,5:a=a+c | 
ifa>bthen2970:else2940 
print:print 

input” menue (m) oder speziale 


(s)";s$ 


2990 
3000 
3010 
3020 
3030 
ef 


ifs$=-"m"then1360:else2380 
scnclr | 

rem #####3u4#3% hoch < tief * 
print | 
BEINE. EA ER hoch < ti 


3040 
3050 
3060 
3070 
f 

3080 


3090 
3100 


3110 


3120 
3130 
3140 
3150 
3160 
ch " 
3170 
3180 
;g 

3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 


usch"” 


3290 
3300 
h 

3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
h..” 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 


print:print 

input” hoechste zahl "”;d 
input” tiefste zahl ";e 
input” schrittweite (1-50) ”; 
print:print” okay " 

rem #t3H#22#03000#0# schleife *# 
sound1,d,9:d=d-f 
ifd<fthen3120:else3090 
print:print 


g0t02980 

scnclr | 
rem T###3U04%8 tjef + rausch * 
DEIRET- 2, unesa tief + raus 


print:print 

input” rausch zahl ( 1-1000) 
print:print" = 
sound3, g,600 

x=1 

do:sound1,x,5:x=x+5 
loopuntilx>600 
print:print:goto2980 

scnclr 

rem #F####3&% hoch + rausch *# 


okay 


print:print 

input” rausch zahl ( 11-1000) "”; 
print:print" = 
sound3,h, 600 

x=600 

do:sound1,x,5:x=x-5 
loopuntilx<10 
print:print:goto2980 

scnclr 

rem #48 tief + hoch *# 


okay 


DTIDE "einen tief + hoc 


print:print 
input”"hoechster ton "”;i 
input"tiefster ton ";j 
sound1,i,100:sound2, j, 100 
print:print:g0t0o2980 


scncir 
rem ##t#44#% rausch > rausch *# 
DTINET 2 2U Se 2 eh: rausch > 


rausch " 


3490 
3500 
3510 
3520 
3530 
3540 


print:print 

input” hoechste zahl " 
input” kleinste zahl " 
do 

sound3,k,5:k=k-5 
loopuntilk<1ı 


Supersound 


3550 


3560 


3570 
3580 


rausch 


3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
".0$ 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 


print:print:goto2980 

scnclr | 

rem F#F###8 rausch < rausch * 
Print’. 25522 a .„..rausch < 
print:print 

input” kleinste zahl 
input” hoechste zahl 
do:sound3,m,5:m=m+5 
loopuntilm>n 
print:print:goto298BO 
scnclr 

rem FH EHI dreiklang + 


‚n 


Brint ne. 2334 ee dreiklang 


print:print 
input” c,d,e,f,g,a,h, welcher 
ifo$=-"c"thenz=810 
ifo$="d”"”thenz=834 
ifo$=-"e”"thenz=-854 
ifo$="f"thenz=864 
ifo$="g"thenz=881 
ifo$="a”"thenz=897 
ifo$="h"thenz=911 
ifz=-810thenx=834 
ifz=810theny=854 
ifz=-834thenx=854 
ifz=-834theny=864 
ifz=854thenx=864 
ifz=-854theny=88B1 
‚ifz=864thenx=881 
ifz=864theny=897 
ifz=881thenx=897 
ifz=881theny=-9119 
ifz=-897thenx=911 
ifz=897theny=-929 
ifz=-911thenx=929 
ifz=911theny=939 
sound1,z2,30:sound1,x,30:sound! 


‚y,45 


3930 
3940 
3950 


print:print:goto2980 
scnclr 
rem ?###3E##88 kombination * 


color 1,16:color O,1:color 4,1 


poke 194,1 
DFINEr 222er kombinatio 


poke 194,0 

print:print 

print” druecken sie mehrere ta 
hinter -"” 

print” einander !!!" 
print:print” bitte warten 
fori=-1t02000:nexti 

scncir 

print 


DrInE "2.255,82 g.. 


print 

DEIDE „sure W.. 
print | 
DFIHE "a... 
print 

Brink" 2a ren 
print 

BITINEL "0 Ess 
print | 
BrIint ’...2.u:..44% Yo 
print 

DEINE "ran uU.. 
print 

Print" ...n...206& 1% 
print 

DTIDE" 222.5,%42% Oo... 
print 
print”......... Mm.. 
print 

Print "sense Se 
print 
print” bitte tast 
getkeya$ 
ifa$="g”then4d44D 


ifa$=-"w”then4500 
ifa$=-"e”"then4560 
ifa$="r"then4590 
ifa$=-"t"then4620 
ifa$="y”then4670 
ifa$=-"u”"then4720 
ifa$="i"then4750 
ifa$=-"0o"then4780 
ifa$=-"m”"then1300 
ifa$=-"s"then2710 
goto4300 

x=1 

do 
sound1,x,5:x=x+15 
loopuntilx>1000 
e0to4300 

x-1000 

do 
sound1,x,5:x=x-15 
loopuntilx<100 
g0t04300 


.=- rau. + 


‚= rau. < 


= hoch > 


= rau. + 


= rau. > 


ra 


= hell...ra 


= dunk...ra 


= mitl...ra 


= menue"” 


.= ende" 


druecken 


Ssupersoumnmd 


4890 


sound1, 100,75: sound3, 789,75 
g0t04300 


sound1,890,75:sound3, 100,75 
g0oto4300 


x=1000 | 
do:sound3,x,5:x=x-15 
loopuntilx<30 
goto4300 

x=1 
do:sound3,x,5:x=x+15 
loopuntilx>1000 
goto4300. 


sound1,888,75:sound3, 999,75 
g0oto4300 


sound1,1,75:sound3, 1,75 
goto4300 


sound1,567,75:sound3, 567,75 
goto4300 


rem TH powerplay 13 


color 1,13,6:color O,1:color 4 


scnclr 
poke 194,1 


PTINE" ae powerplay... 


poke 194,0 
print:print 


print”..die tasten..a bis z..s 


ind alle mit” 


4900 print” verschiedenen geraeusch 


kombinationen..... belegt !” 


4910 print” sie koennen zwischen 2 


modis waehlen” 


4920 
4930 
4940 
4950 
4960 
4970 
49B0 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 


print” rauschen - (a) 
print” ton - (b) 
getkeya$ 
ifa$=-"a"”thena=3 


ifa$=-"b"thena=1 
ifa$<>"a”"anda$<>"b"then4940 


print:print” ende = 3 " 
print” menue = 4” 

print” bitte taste druecken 
getkeya$ 

ifa$=-"a"then5310 


ifa$="b"then5370 
ifa$="c"then5430 


ifa$="d”then5490 


ifa$="e"then5550 
ifa$="f”"then5610 
ifa$="g”then5670 


5090 


5100 


5110 
5120 
5130 
5140 


5150 
5160 


5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 


5260 


5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5370 
5380 
5390 
5400 
5410 
5430 
5440 
5450 
5460 
5470 
5490 
5500 
5510 
5520 
5530 
5550 
5560 
5570 
5580 
5590 
5610 
5620 
5630 
5640 
5650 
5670 
5680 
5690 
5700 
5710 
5730 


ifa$="h"then5730 
ifa$="i"then5790 
ifa$=" j"then5850 
ifa$="k"thenS5910 
ifa$="1"then5970 
ifa$="m"then6030 


ifa$="n"then6090 
ifa$="o"then6150 


ifa$=-"p"then6210 
ifa$="q"then6270 
ıifa$=-"r"then6330 
ifa$="s"then6390 
ifa$="t"then6450 
ifa$="u"then6510 
ifa$="v"then6570 
ifa$="w"then6630 
ifa$="x"then6690 
ifa$="y"then6750 
ifa$="z”"then6810 
ifa$=-"3"then2710 
ifa$="4"then1300 

goto5S01O0 

y-1 | 

x=-1020 

do:sounda,x, 1:x=x-30 

loop untilx<BOO 
y-y+1l:ify=-5Sthen5010:else5320 
y=1 

x=1020 

do:sounda,x,3:x=x-50 

loop untilx<BOO 
y-yti:ify=-S5then5S010:else5380 
y-1 

x=1020 

do:sounda,x,3:x=x-20 
loopuntilx<800 
y-y+1:ify=-3then5010:else5440 
y-il 

x=-1020 

do:sounda,x,1:x=x-90 
loopuntilx<800 
y=-y+1:ify=-Bthen5010:else5500 
y-1 | 

x=1020 

do:sounda,x, 10:x=x-80 
loopuntilx<800 
y-y+t1:ify=-4then5010:else5560 
y=1 

x=BOO 

do:sounda,x,1:x=x+20 
loopuntilx=1020 
y-y+t1l:ify=-Sthen5010:else5620 
y-ı 

x=800 

do:sounda,%,1:x=x+5 
loopuntilx=1020 
y-y+1:ify=-3then5010:else5680 
y-1 | 
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Supersound 


5740 


5750 
5760 
5770 
5790 
5800 
5810 
5820 
5830 
5850 
5860 
5870 
5880 
5890 
5910 
5920 
5930 
5940 
5950 
5970 
5980 
5990 
6000 
6010 
6030 
6040 
6050 
6060 
6070 
6090 
6100 
6110 
6120 
6130 
6150 
6160 
6170 
6180 
6190 
6210 
6220 
6230 
6240 
6250 
6270 
6280 
6290 
6300 
6310 
6330 
6340 
6350 
6360 
6370 
6390 
6400 
6410 
6420 
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x=-B00 
do:sounda,x,1:x= 
loopuntilx=1020 
y-y+1:ify=-7then5010:else5740 
y-1 | 

x=-800 

do:sounda,x,6:x=x+20 
loopuntilx=1020 
y=y+1:ify=-4then5010:else5800 
a | 

x=BOO 

do:sounda,x,4:x=x+70 


x+55 


loopuntilx=-1010 


y=y+1:ify=8then5010:else5860 
y-1 

x=600 

do:sounda,x,1:x=x+50 
loopuntilx=1000 
y-y+1:ify=8then5010:el1se5920 
y=1 

x=600 

do:sounda,x,4:x=x+25 
loopuntilx=1000 
y=-y+1:ify=-5then5010:e1se5980 
y>1 

x=600 

do:sounda,x,5:x=x+75 
loopuntil1x>940 


y-y+1:ify=-5then5010:else6040. 


y-1 

x=1000 

do:sounda,x,5:x=x-75 
loopuntilx<700 
y-y+1:ify=-5Sthen5010:else6100 


y-1 


x=1000 


do:sounda,x,1:x=x-30 
loopuntilx<600 
y=y+1:ify=-S5then5010:el1se6160 
y-1 

x=BO00 

do:sounda,x,4:x=x-30 
loopuntilx<450 
y=y+1:ify=-5then5S010:else6220 
y-1 

x=450 
do:sounda,x,4:x= 
loopuntilx>800 


=x+30 


y=y+1:ify=SthenS010:else6280 


y-1 

x=1020 

do:sounda,x,4:x=x-30 
loopuntilx<600 
y=-y+1:ify=5then5010:else6340 
y-1 

x=1020 

do:sounda,x,1:x=x-1 
loopuntilx<980 


y-y+1: ify- =3then5010:else6400 
y-1 

x=1020 

do:sounda,x,4:x=x-1 
loopuntilx<995 
y-y+1:ify=3then5010:else6460 
y-1 

x=1020 

do:sounda,x,2:x=x-3 
loopuntilx<980 Se 
y-y+1:ify=-6then5010:else6520 
y-1 

x=98B0 

do:sounda,x,2:x=x+3 
loopuntilx>1016 
y-y+tl:ify=-5then5S010:else6580 
y=-1 

x=950. 

do:sounda,x,1:x=x+1 
loopuntilx=1020 
y-=y+1:ify=3then5010:else6640 
y=-1 

x=800 

do:sounda,x,1:x=x+5 
loopunti1lx>900 
y-y+1:ify=-5then5010:else6700 
y-1 

x=900 

do:sounda,x,1:x=x-5 
loopunti1x<800 | 
y-y+t1i:ify=-5then50108:else6760 
y-1 

x=900 

do:sounda,x,4:x=x-5 
loopuntilx<800 | 
y-y+t1:ify=-S5then5010:else6820 


687)0 rem Frrrtanann SOySETeR sound * 
6880 scnclr:print 

6890 print "”..........2.. joystick so 
UNO. sms "print 

6900 print ” der joystick macht mus 
ik.probieren sie es aus (port 1)-” 
6910 print ” e = ende..... m = menue 
6920 x=1 

6930 get a$ 

6940 if a$=-"e”"then2710 


6950 
6960 
6970 
6980 
6990 
7800 
7010 
7020 
7030 
7040 
7050 


if a$=-"m"then1300 


then 
then 
then 
then 
then 


then 


if joyf( 1) =1 
if joy( 1)=2 
if joy( 1)=3 
if joy( 1)>4 
if toyl 1)-5 
if joy( 1)>=-6 
if joy( 1)=>7 then y=571 

if joy( 1)=>8 then y=596 

if joy( 1)=128 then 7070 
sound x,y,20 


y=169 
y-262 
y=345 
y=383 
y-45J3 
y-516 


Supersound 


7060 
7070 
7080 
7090 
9000 
9010 


9020 
9030 


rem 
rem 


rem 
rem 


goto6930 
if x=-1 then x=3:goto 6930 
if x=-3 then x=1 
g0t06930 

supersound ======-=-===-=-=-=p94 


60671 


12141 
00000 


bytes 
bytes 
bytes 


memory 
program = 
variables === 


9040 
9050 
9060 
9070 
9080 
9090 


00000 
00000 bytes 
48530 bytes 
bei c-16 und c-116 ohne 
kopf und fusszeilen 
eingeben >speicher< 


bytes 


=====116/16 
(p) 7/86 commodore welt = 


AED meERnn (mim SEHE (EBEEED TEE» Ammmihe MiMeEmg CAaUR: dUMEEE SEMENEE Cie suMmein AmMidme smaiD SUEHREED -ahuiß Cem AMEEEED Sie ‚nie Sie HOshaiiR smile amndip „AuNdEr ‚nimiin ammutn 
mm» weieE: AUHirD (NE (ANMENS GEEER AUmWENEn dem AAAUE SÄMERD WERE CEEMEE AND dem GAME ANNE LU -<TMEM MÜRMEN GMME eben GeMiip SUAEB würden cup vmmdDr WdE AUmEns 


rem analoguhr+twecker 
rem 


(c) cw-team = 


c116/c16/plus 4 = 


EEE AU SU EHE Weir YEUAnD CUSEHED aummme> ‚MMuiND SEEMEEE ABER sEHiiiiR +RENAEEED CME SERENED SUREHBE CöCEMEN WER (MÄR aid aUimD (ihm AESEEND AEEED GEBR GAHMME SUiBE> -mane 
UMDen> Wi» (mine AMMEE WERE Aimmin Weinen) (iihdter dimmmänD SURNE UB> wimln End» MAR iM chen cum ned AMD GAMES MEHEE ABnAEE SOME AND ame DUNED ville Anm 


rem 
color1,2,0:colorüO,2,4:color4,2,4 


90 rem #*#### zeitabfrage Frtttsutt 
100 scnclr | 
110 input”"alarmzeit...... (hhmmss)"; 
az$ 

120 input"genaue uhrzeit (hhmmss)"; 
ti$ | 

130 rem ##*## uhr malen #### 

140 graphic], 1 

150 char,30,4,"weckzeit"” 

160 char, 31,6,az$ 

170 xm=120: ym=100:1m=85 : 1h=70 

180 circlei,xm,ym,92 

190 circle1,xm,ym,98 

200 xs=120:ys=180:1s= 8 

210 fori=-0t0360step6 

220 locate 120, 100:1locate92;i:draw 


to +6;i:next 
230 fori=0t0360step30 
240 locate 120, 100:1locate88B;i:draw 


to +15; i:next 

250 gosub430 

260 rem ##### zeitanzeige *F#tt#* 
270 trap 560 

280 if ti$=az$ then goto 580 


z=vallmid$(ti$,5,2))*6 
ifz=-0 then gosub420 
ifz=-w then 280 


wWecken G 


16 


320 gosub390:w= Bd 1 2))*6 


:gosub350 
330 goto280 
340 rem 
350 locatexs,ys 
360 
370 return 
rem 


locatexs,ys 


return 
locatexm, ym 


locatexm,ym 


Locatexni. vn 


fosan. vn 


return 
graphicü:end 


trap270:vol? 
soundi 


wh=int( ti/7200) 

if wh>360 then wh=wh-360 
locate lh;wh:draw to xm,ym 
circlel,xs,ys,10 


sekundenzeiger zeichnen 
locate 1s;w:draw to xs,ys 
sekundenzeiger loeschen 
locate 1s;w:drawO to xs,ys 
rem minuten+stunden 


locate iIm;wm:drawO to xm,ym 


wm=val(lmid$(ti$,3,2))*6 
locate 1im;wm:draw to nyN 


locate 1h;wh:drawO to xm,ym 


rem #*##* weckton 


1000, 10:sound 2, 500,10: 
p= 1t0200:next: goto590 


rem wecker ende 


HATTEN SIE ES 


GEWUSST? 

Die wichtigsten Device-- 
Adressen. 

Tastatur 0 
Recorder 1 
Telefonmodem 

Userport 2 
Bildschirm 3 
Drucker 4-7 
Disk 8-11 
Sonderperipherie abl2 


HATTEN SIE ES 
GEWUSST? 


Systemreset der Commo- 
dore-Computer. 


128 PC SYS 65241 
C-64 SYS 64738 
Plus/4 SYS 65526 
C-16 SYS 65526 
C-116 SYS 65526 
VC-20 SYS 64802 


Pokeadressen Bildschirm 
und Farbe in Dezimal. 


VC-20 


Grundvers. 7680 38400 
VC-20+3K 7680 38400 
VC-20+8K 

bis 64K 4096 37888 
C-64 1024 55296 
C-116/C-16 3072 2048 
Plus/4 3072 2048 
128 PC 1024 55296 


Dieser Poke macht den C- 
64 schneller, ähnlich dem 
Befehl FAST beim 128 
PC. 

POKE 53265,11 
schirm abschalten. 
POKE 53265,27 Bild- 
schirm einschalten. 

Sollte dem Anwender 
das unruhige Geblinke 
des Cursor nicht gefal- 
len, so kann man dies 
andem: 

POKE 56325 ,x 

x = o schnell/58 normal 


[255 langsam. 


Bild- 


53 


EEE EEE EEE EEE TEE EEE EEETEETET ET ne 


Sstenobasic-Trrainer 


10 rem stenobasic-trainer >> 


=116/16 
20 rem (p) 7/86 commodore welt = 
30 rem ===>=-=-=-=-=-=-=-=---- === =-- 22-2000. -— 
AOQO rem (c) 7/86 cw-team = 
50 rem = 
60 rem c116/c16/plus 4 (c64/vc20) = 


@eimtsrl. MER MM. Meinten AA QUCLE AUEEEEE ANNE Maukle Amis: nic) eine llama ZAHN AUMLIKEE smedire SUMMEN Auupun: SCHE SUMME, SMMMENm SAME ade: "MALE daimdfe: amiiie Nina GBmmminD 
made EimIEN TWAGEr GAME aim AiMETEe CIEMETE AAERBNM. GIER AMUCEEe Tag cmemal: WAAENn CEMMT dnmmem AAMAEET- ATEM nEOEMED UiREeD däimame diMEMEr GAME ARMEE: Ta dmmuim deme dims anne 


70 rem 

80. c1$=chr$( 147) :fa$=chr$( 130) 

90 printchr$( 14) 

100 tm=125:rem anzahl der token (c6 

A/vc20 tm=75) 

110 dima$( tm) ‚,b$(tm) ,‚a%L tm) :printcl 

$ 

120 fori=O to tm:reada$(i) :next 

130 fori=0 to tm:read x:s=s+x 

140 if x=1thenb$( i) =a$li) :goto18BD 
150 b$li)=-1left$la$l i),x-1)+chr$(asc 

(mid$(a$(i),x,1))or128) a 
160 ifx=-len(a$l i))thenb$l[l i)=-a$li) 
170 ifx=-9thenb$l i) ="?7" 

180 printi+128,a$(i),b$(i) 

190 next:if s<>293 then print"Fehle 

r in den DATA-Zeilen”:end:rem c64A/v 

c20:s<>168 ! 

200 rem ** abfragezyklus *FH#tt#t:x 

210 printcl$:input”wieviel Token so 

lMlen abgefragt werden ";tk 

220 for i=1 to tk. | | 

230 gq=int(rnd( ti)*tm) :if a%lg)<>O t 

hen 230 

240 printc1$"”"Wie ist die Abkuerzung 
von: "”;a$(g) 

250 z=ti:input ab$:zs=zs+tti-z:rem r 

eaktionszeit 

260 if ab$=b$(g) then print"richtig 
!1”":3%lq)=1:goto280 

270 print"Falsch, sie heisst: 

$(q) :a%lgq)=2 


"Fa$b 


280 getkeyw$:next 

290 printcl$"Auswertung” 

300 rem#*# auswertung FFFHRHEREHEREn 
310 for i=0O to tm 

320 if a%li)=1 then r=r+J1 

330 if a%l i)=-2 then f=f+1:print"Fal 
sch war:"”,a$(i)fa$,b$(i) 

340 next:for t=1t06000:next 

350 printcl1$"Sie haben ":print 

360 print"Richtig geraten: "”,r 
370 print"Falsch geraten: ",f 


380 print:print"verbrauchte Zeit:", 
int( zs/60)"”" sec” 

390 input"”Noch einmal? j/n";w$:if w 
$="j" then run 

AUODO end 

410 rem* datas token *##*#* 


A420 data end, for,next,data,input#,i 


nput,dim,read, let,goto 
430 data run,if,restore,gosub,retur 
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n,rem,stop,on,wait, load 

A440 data save,verify,def,poke,print 
#,print,cont,list,cir,cmd 

ASDO data sys,open,close,get,new,tab 
(‚,to,fn,spc( ‚then 

A6D data not,step,+t,-,*,/,°,and,or, 


>. 


470 data 
s,sqr,rnd 
A480 data log,exp,cos,sin,tan,atn,pe 
ek,len,str$,val 

A9O data asc,chr$,left$,right$,mid$ 
‚go,rgr,rclr,rlum, joy 

500 data rdot,dec,hex$,err$,instr,e 
lse,resume,trap,tron,troff 

510 data sound, vol,auto,pudef,graph 
ic,paint,char,box,circle,gshape 

520 data sshäape,draw,locate,color,s 
enclr,scale,help,do,loop,exit 

530 data directory,dsave,dload,head 
er,scratch,collect,copy,rename,back 


=,<,sgn,int,abs,usr,fre,po 


‚up,delete 


540 data renumber,key,monitor,using 
‚until,while 

550 rem #** datas zeichenanzahl *#*# 
560 data2,2,2,2,2,5,2,2,2,2,2,2,3,3 
Pe 
570 
ve 
580 
Fi 
590 
‚2 
600 
„2 
610 
„a 
620 
‚2 
630 
AL 
640 data4,2,2,3,2,2 

650 a= O:fori=-0to18step2:poke4103+i 
‚128+1/2+3/2:poke4103+i+1,44:next 
660 rem stenobasictrainer====16/116 
670 rem 2406 bytes program = 
680 rem ===>=======2=S 222222 seomzomem 


data3,2,2,2,2,2,2,2,2,2,9,2,2,2 
data2,2,3,2,3,2,2,2,2,2,2,3,1,1 
datat,1,2,2,1,1,1,2,3,2,2,2,3,2 
data3,2,3,2,3,2,2,2,3,2,2,2,3,2 
dato2,2,2,2,2,2,3,2,2,3,2,4,2,3 
data2,2,2,2,2,2,3,2,2,2,2,2,3,3 


data3,3,2,3,3,3,2,2,3,3,4,3,3,2. 


Kennwort „Hungerhilfe Afrika“ 
u Menschen in Not brauchen Hilfe: 


zuverlässig, schnell, wirksam. 
Die beiden kirchlichen Hilfswerke 
nehmen ihren Auftrag ernst. 


„ÄRA Deutscher Caritasverband Postgiro Karlsruhe 202 
3 Diakonisches Werk Postgiro Stuttgart 502 
und viele Banken u. Sparkassen 


RR 


NaRsad N 


ERNST i 


Ts 


SARKRRRKEIEN SU 


5 TLEETTTTERED N N 


r ISIN. : 


SDRRERIIS- wos LAISTTSTORERRÄNN 


ORION" 


BEER Neun 


ANAL 


SIRSSUNNNDS 


N 


ISSN SS... ; ÄÄISSIÄSINUS | 
„ N r RÜN LEER 


Nenn 
DaRan- 


ICH, 
III 


N 


= 


TIPS & TRICKS | 
128PC: HARDCOPY 
AUF TASTEN-DRUCK 


Viele von Ihnen werden es vermutlich gemerkt haben: Leider ist uns bei der Hard-copy-Routine 
ein Fehler unterlaufen. Bei dem abgedruckten Listing handelte es sich zwar um das selbe 
Programm, allerdings stimmte die (ebenfalls richtige) Beschreibung nicht mit dem Listing überein, da 
dieses in Hex-Dump-Format erstellt wurde. Hier nun das passende Assembler-Listing: 


TIPS & TRICKS 


Ein INPUT-Befehl akt- 
zeptiert keine Kommata 
und keine Doppelpunkte. 


Wenn man aber beı der 


Eingabe als erstes Zei- 
chen ein Anführungszei- 


chen setzt, werden auch 


Kommata und Dopgpel- 
punkte aktzeptiert. Das 
Anführungszeichen wird 
nicht in der INPUT-VA- 
RIABLEN abgespeichert! 
Joystickfunktionen _las- 


sen sich auch über die 
Tasten steuern: 


JOYSTICK PORT! 


Feuer = Space; Links = 
CTRL; Rechts = 2; 
Oben = 1; Unten = ı 
JOYSTICK PORT 2 


Feuer = CTRL + ]J, 
Links = CTRL + D; 
Rechts = CTRL + G; 
Oben = CTRL + CRSR 
Right; 

Unten = CTRL + A. 


- Die Joysticks lassen sich 


mit den Adressen. 56320 
(PORT 2) und 56321 
(PORT 1) abfragen. 

Keine Bewegung 127 (2 
255 (1); Oben 126 (2 
254 (1), Unten 125 (2 
253 (1), Rechts 119 (2 


’ 
’ 


) 
); 
) 


’ 


247 (1), Links 123 (2), 
251 (1); Rechts oben 118 
(2), 246 (1); Links oben 
122 (2) 250 (1); Rechts 
unten 121 (2), 249 (1); 


Links unten 121 (2),249 


(1); Feuer 111 (2), 239 
(1) 


WAIT 56320, 16, 16 
wartet auf Feuerknopf; 
WAIT 56320, 4, 4 wartet 
auf Joystick nach links; 
WAIT 56320, 1, 1 wartet 
auf Joystick nach oben; 
WAIT 56320, 2 , 2 war- 
tet auf Joystick nach un- 
ten; WAIT 56320, 8, 8 
wartet auf Joystick nach 
rechts; WAIT 56320, 
127, 127 wartet auf ır- 
gendeine Joystickbewe- 
zung. 

Dies gilt nur für Port 2. 
Bei Port 1 lautet die 
Adresse 56321! 


Durch PRINT PEEK(57) 

erfahren Sie die Zeilen- 
nummer, an der das Pro- 
gramm unterbrochen 
wurde. 


TASTATUR- 
MATRIX- 

CODE: 

CODE TASTE 
0 1 
3 7 
6 

9 W 
12 I 
15 RETURN 
18 

21 L 
24 STOP 
27 V 
30 / 
33 C 
36 

39 

42 H 
45 - 
48 Q 
51 U 
54 | 
57 4 
60 (0) 
1 3 
4 9 
7 "DEL 
10 R 
13 P 
16 1 
19 G 
22 J 


25 

28 N 
31 CRSR 
34 B 
37 

40 S 
48 K 
46 f3 
49 E 
52 0 
55 f5 
58 6 
61 
2 5 
5 + 
8 

11 Y 
14 * 
17 A 
20 | J 
23 (CRSR) 
26 X 
29 
32 Z 
35 M 
38 fl 
41 F 
44 
47 

50 T 
53 

56 2 
59 8 
62 HOME 


CP/M DAS UNBEKANNTE 


Im letzten Teil unserer kleinen Serie werden wir uns etwas näher 
mit den Programmen beschäftigen, die beim Kauf des 128er’s nicht mitge- 
liefert werden. Die “Additional Utilities’ müssen extra bestellt 
und bezahlt werden. 


Im Bild 1 ist der Inhalt der Diskette 
“Source Disk 1 und 2° sowie der 
“Additional Utilities‘ (oben) zu 
sehen. Auf die .COM Dateien wol- 
len wir näher eingehen. 
Vorausgeschicken wollen wir je- 
doch einen kleinen Hinweis. Über- 
legen Sie sich gut, ob sich der Kauf 
dieses immerhin fast 100,— DM 
teuren Programmpaketes lohnt. 
Für den “normalen‘“ Anwender, 
sprich für denjenigen, der nur mit 
seinem Computer arbeiten will, 
lohnt sich die Anschaffung sicher- 
lich nicht. Zumal es sich bei die- 
sen Programmen eher um ein Ent- 
wicklungssystem für Software 
handelt. 


DIE EIGENE BIBLIOTHEK: 
LIB.COM 


Welche Aufgaben haben diese Pro- 


gramme nun? 

Gehen wir der Reihe nach. 
LIB.COM erstellt sogenannte “Lib- 
rary-Files‘“, die später mit einem 
Linker bearbeitet werden können. 


Eine Library ist eine Art Bibliothek, 


die eine Sammlung von Objekt-Da- 
teien enthält. Diese Objekt-Dateien 
sind die Quelltexte, die mit einem 
Assembler übersetzt worden sind. 
Mit LIB können nun solche Dateien 
leicht erstellt, verändert, ersetzt 
oder selektiert werden. Man kann 
aus verschiedenen LIB-Dateien eine 
neue Datei mit einem anderen Na- 


men erstellen. Das besondere an die- 


sem Programm ist das Format, in 
dem der Inhalt abgelegt wird. LIB 
erzeugt nämlich Dateien, die alle- 
samt im MICROSOFT REL File 
Format auf der Diskette stehen. 
Dies bedeutet nichts anderes, als 
daß die so erzeugten Files mit dem 
schon angesprochenen Linker zu 
einem kompletten Programm zu- 
sammengefügt werden können. 
Aber darüber später mehr. 

LIB wird in der altbewährten Art 
und Weise aufgerufen, nämlich mit 
Optionen in der Kommandozeile. 
Glücklicherweise gibt es derer nur 
vier. Wir wollen sie kurz anführen, 
damit Sie sehen, was man mit die- 
sem Programm alles anstellen kann. 
Da ist zunächst die Option I. Diese 
INDEX Option erzeugt ein Index- 

- Library-File namens IRL. Der Vor- 
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teil liegt darin, daß der Linker we- 
sentlich schneller auf die indizier- 
ten Dateien zugreift als auf nicht 
indizierte. 

Die M Option, für MODULE, zeigt 
nur die in der Datei verwendeten 
Modulnamen an. Zusätzlich zu den 
Modulnamen werden bei der 
PUBLIC Option noch alle Varia- 
blen des neuen Library files ange- 
zeigt. Mit D (DUMP) können Sie 


sich den Inhalt der Dateien in 
ASCII Form anzeigen lassen. 


Das für die ominösen REL-Files ver- 


antwortliche Programm heißt 
schlicht und einfach RMAC. 


RMAC 


Es ist der Relocatible Macro Assem- 


bler von Digital Research. RMAC 
erzeugt einen sogenannten “reloka- 
tiblen‘‘ Code, das bedeutet, die Pro- 
gramme sind im Speicher frei ver- 
schiebbar. Warum das von Vorteil 


ist, sehen wir an folgendem Beispiel. 


Stellen Sie sich vor, Sie haben ein 
Programm (in Assembler) geschrie- 
ben, das Sie an die Stelle $300 im 
Speicher plazieren wollen, das di- 
rekte Sprunganweisungen und 


. Macros enthält. Jetzt müssen Sie 


aber das Programm aus irgendwel- 
chen Gründen an eine andere Stelle 
im Speicher plazieren. Was pas- 
siert?? Die meisten Sprünge stim- 
men nicht mehr und müssen in zeit- 
raubender Arbeit angepaßt werden. 
Außerdem haben Sie die Macros 
schon irgendwann einmal definiert. 


An dieser Stelle setzt die Arbeit 
von RMAC ein. Dieser Assembler 
(Übersetzer) kümmert sich wenig 
um Ihre Adressen und Macros, son- 
dern er setzt intern einfach Marken, 
an die später beim Linken erstens 
die richtigen Sprungadressen und 
zweitens aus einer Library die 
richtigen Macros gesetzt werden. 
Der Programmierer kann sich so die 


Arbeit der Umrechnung und vor 


allem jede Menge Tipparbeit sparen. 
RMAC erzeugt während der Assem- 
blierung drei Output-Files. Als 
erstes natürlich das REL-File. Da- 
nach wird ein Listing des Quelltex- 
tes erzeugt, das Sie auf den Druk- 
ker oder Bildschirm leiten können. 
Als letzteres entsteht die Symbol- 
tabelle, in die alle Marken, Sprünge, 
Labels etc. eingetragen werden. 
Beispiel: 

A>RMAC TEST $PX SB RB 

Hier wird die Datei “TEST“ assem- 
bliert, dabei geht das Listing (P für 
PRN=Printer) auf den Bildschirm 
(X), die Symboltabelle und REL 
Dateien auf das Laufwerk B. _ 
RMAC ist ein relativ neuer Assem- 
bler, sein Vorgänger bzw. auch noch 
heute eingesetzter “Bruder“ befin- 
det sich ebenfalls auf der Diskette. 
Es ist der Macroassembler MAC. 


NOCH’N ASSEMBLER: MAC 
MAC assembliert Quelltexte, die in 


ASM Files auf der Diskette stehen. 
Auch er erzeugt drei Output-Files, 


allerdings keine REL.-Datei, son- 


dern einen Objektcode im INTEL 
Hexadecimal Format. 

Allerdings ist die erzeugte Datei mit 
der Extension .HEX auch noch 
nicht lauffähig, dazu bedarf es ja 

_ eines .COM Bezeichners. Aber die 
Entwickler haben natürlich an alles 
gedacht und das Programm 
HEXCOM.COM mitgeliefert. Es 
wird mit dem Namen des zu bear- 
beitenden Programms aufgerufen: 
A>HEXCOM TEST : 

Sie sehen, es ist keine Extension hin- 
ter TEST notwendig. Nachdem 
HEXCOM fertig ist, können Sie Ihr 
Programm starten. 

Wir haben ein weiteres wichtiges 
Programm schon mehrfach erwähnt, 
den LINKER. Der Linker verbindet 
(= to link) relokatible, also frei ver- 
schiebbare Objectfiles, die mit 


RMAC erzeugt wurden, zu einem 
ausführbaren .COM Programm. Da- 
bei greift er auf Librarys zu und 
verbindet die im Objectfile festge- 
legten Routinen. Auch hier sind 
eine Menge Optionen möglich, die 
wir aber nicht besprechen wollen. 
Sehen wir uns lieber ein Beispiel 


an: 
A> LINK BNKBIOS3[B]=NEW 
NSS 

Ein dicker Brocken, zugegeben. 
Was geschieht hier? Link erzeugt 
aus den Dateien NEWBIOS.REL, 
DISK.REL, CONSOLE.REL, 
UHR.REL und SCB.REL die Ob- 
jektdatei BNKBIOS3.SPR, die 
wiederum von einem anderen Pro- 
gramm benötigt wird. Der Buch- 
stabe Bin eckigen Klammern gibt 
dabei eine besondere Form der 
Ausgabedatei an, es wird kein 

‚COM File erzeugt, sondern ein 
.SPR-File, das vom Programm 
GENCPM benötigt wird, um ein 
neues CP/M System zu erstellen. Ei- 
ne weitere Besonderheit ist das Fol- 
gezeichen °‘&““ das es erlaubt, belie- 


‚ 


big lange Zeilen zu erzeugen. Aller- 
dings sollte man dabei auf den ver- 
fügbaren Speicherplatz achten. 
Wenn die Möglichkeit eines Spei- 
cherüberlaufs besteht, sollten Sie 
dem Linker mitteilen, daß er Zwi- 
schendateien auf der Diskette ab- 
legen soll. Dies geschieht mit der 
Option “A°“. Weiterhin besteht die 
Möglichkeit, externe Librarys, die 
vorher nicht angesprochen und ver- 
einbart worden sind, beim Linker- 
aufruf mit anzugeben. 


SUCHE IM DUNKELN: DER SID 


Selten läuft ein Programm auf An- 


hieb fehlerfrei. Um Programme zu 

analysieren und zu testen benötigt 

man einen Debugger. Mit SID steht 
dem Anwender ein golches Pro- 


gramm zur Verfügung. Nebenbei 
bemerkt, ein Debuggeir ist, frei über- 
setzt, ein Entwanzer. Der Ausdruck 
stammt noch aus der Zeit, als die 
Computer noch mit Röhren oder 
Relais bestückt waren und sich 


Mücken, Wanzen und Käfer (eng.: 


bugs) in den Anschlüssen verfingen. 
Dann mußte jedesmal ein Mensch 
in die Maschine kriechen und die 
defekte Stelle suchen und säubern. 
SID heißt natürlich auch nicht 
Suche im Dunkeln, auch nicht, wie 
böse Zungen immer noch behaup- 
ten, “Silly Idiotic Debugger‘, son- 
dern “Symbol Instruction De- 
bugger‘‘. Symbol Instruction des- 
halb, weil er mit Buchstaben ge- 
steuert wird. 

So bedeutet ““A° zum Beispiel 

“ Assemble‘ oder ““C“ “CALL“. 


SOURCECODE 


ASSEMBLER 


OBJECTCODE 
| LINKER 


PROGRAMM 


LIBRARY 


BILD 1: VOM QUELLTEXT ZUM FERTIGEN PROGRAMM 
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WIRKUNGSWEISE DES LINKERS 


I OBJECTCODE 


HOLE MACRO1 
AUS LIBRARY 


| HOLE MACRO2 
AUS LIBRARY 


HOLE MACRO3 
AUS LIBRARY 


TEST.COM 


Die Möglichkeiten sind fast 
nicht auszuschöpfen 


Um die Fähigkeiten dieses leistungs- 


starken Programms zu verdeutlichen, 


sehen wir uns einmal näher die 
Befehle an: 


A — Assemble 
Beginn der Line-by-Line Assem- 
blierung 


— Call 
Ruft den Wert einer bestimmten 
Speicherstelle ab, ohne die CPU 


‚60 


LIBRARY 


MACRO1: MVI A,0 
CC CISTL 
ORAA 
JNZ CI$ 
JMP CI 


PUSH B 


MACRO2: PUSH B 
PUSH D 
MOV A,M 


CALL ?I 
INX H 
POP D 


MACRO3: PCHL 
LDAX BI 
MOV E,A 
LDA @A 
POP D 
ORAB 


beim Programmablauf zu stören. 
D — Display Memory 


'.Gibt den Inhalt des Speichers aus. 


Eine Anzeige in ASCII Form wird 
unterstützt. | 

F — Fill Memory 

Füllt den Speicher mit einem 8$-bit- 
Wort. 

G — Go to Program 

Startet ein Programm im Speicher. 


Vor der Ausführung können be- 
stimmte Register der CPU beein- 
flußt werden. Das Programm läuft 
übrigens in Echtzeit ab, d.h., SID 
verlangsamt den Ablauf nicht. 


H — Hex Values 


aus. 


I_— Input Line 

Gibt eine Anzahl von Dal 

a für das R-Kommando (Ss. d.) 
rei. 


L — List Code 
Listet disassemblierten Code aus. 


M — Move Memory 
Bewegt Komplette: Speicherbereiche 
an eine definierte Stelle. 


P — Pass Counter 

Ein “Pass Point“ ist eine Art Regi- 
strierpunkt. Dort wird angezeigt, 
ob der Programmzähler die Stelle 
passiert hat. Dies ist wichtig, um 
beispielsweise Sprünge in bestimm- 


Gibt die Hexwerte von Operanden 


te Programmteile zu verfolgen. 


R — Read Code/Symbols | 
Liest Programmteile in den mit “I“ 
freigemachten Speicherplatz. 


S — Set Memory 


. Anzeige im 8-bit oder 16-bit For- 
mie 


T — Trace Mode 

Das Programm wird Schritt für 
Schritt ausgeführt. Dabei werden 
die wichtigsten CPU Register ange- 
zeigt. 


U — Untrace 
Selbe Funktion wie ““T“, die Regi- 
ster werden nicht angezeigt. 


X — Examine CPU State 
Gibt nur die CPU Register aus. 


Sie sehen, SID hält eine Menge Be- 
fehle für die Programmentwicklung 
und Verbesserung bereit. 

Hand in Hand mit SID arbeiten 
zwei Utilities. HIST.UTL und 
TRACE.UTL. Letzteres speichert 
die letzten 256 ausgeführten Befeh- 
le des Programmes, allerdings nur, 
wenn die Optionen "U" oder “T“ 
angeschaltet sind. HIST.UTL sam- 
melt Daten während des Pro- 
grammablaufes und stellt sie an- 
schließend in Abhärigigkeit vom 
größten Wert dar. 


ZUSAMMENFASSUNG 


Damit ist unsere kleine Serie über 
dieses wohl älteste Betriebssystem 
beendet. Wir werden in loser Folge 
weitere Artikel über CP/M bringen. 
Wenn Sie Anregungen, Kritik oder 
Lob haben, schreiben Sie es der 
Redaktion. Wir freuen uns über 


(is) 


jeden Brief. 


_CBM DEF FN A (X) oT C64+VC20 | Tips & Tricks 


Selbstdefinierte Funktionen Farbwahl (Helligkeitsstufen) 

Definition (muß vor dem ersten Aufruf erfolgen): Sollen Zeichen auf dem Bildschirm gut lesbar sein, so 

30 DEF FN DEEK(X) =PEEK(X)+256*PEFK( x+) müssen Zeichen- und Hintergrundfarbe aufeinander ab- 
Der Funktionsname ist fn, erweitert um einen Variab- Ä gestimmt werden. Damit Zeichen sich auch auf Schwarz- 
lennamen (nur die ersten 2 Zeichen zählen). weißmonitoren abheben, muß ein Helligkeitsunterschied 
Folgende Schreibweisen sind gleich: vorhanden sein. 

deffndeek(x)=def fn de ek(x)=deffnde(x) | 

Die Variable in der Klammer muß die gleiche sein, Hintergrund: POKE 53281,X 

wie rechts vom Gleichheitszeichen, sonst ist das Er- Zeichenfarbe: POKE 646,X 

gebnis von der Variablen unabhängig. (beim VC20 Hintergrund in 36879) 

Aufruf mit PRINT... oder in Gleichung: Demoprogramm: 


130 A=45:PRINT “Basicende="FN DE(A) 


en C64 ur Tips & Tricks 


Altes Kernal-ROM (Betriebssystem) verbessern 


Nach SHIFT/CLR wird bei den alten C64-Model- | 
len der Farbspeicher (Handbuch S. 139) mit der Hinter- 
grundfarbe aufgefüllt. Ein in den Bildschirmspeicher 
gePOKEtes Zeichen (z.B. POKE1024,65 für A) bleibt 
unsichtbar. Man muß erst mit POKE55296,l die Zei- 
chenfarbe in den Farbspeicher POKEn. 
Folgende Zeile ins Programm schreiben und statt 
PRINT CHR$(147) immer GOSUB 50000 (Farbspei- 
cher wird mit Zeichenfarbe aufgefüllt.) 
50000 a=53281:b=peek(a):pokea,peek(646):print chr 

: $(147):pokea,b :return 


zu C64+VC20 Tips & Tricks 


Anführungszeichenmodus (Quote mode) 


Schreibt man ein Gänsefüßchen, so werden alle Steuer- 
zeichen als reverse Graphikzeichen dargestellt. Man kann 
nun nicht mehr mit dem Cursor fahren, um in der Zeile 
etwas abzuändern. 

Wird in die Speicherstelle 212 eine 0 gepoket, so wird der 
Anführungszeichenmodus gelöscht. Dies geht nurin 
Maschinensprache. Der Restorevektor wird in Zeile 40 
auf die Routine verbogen. Nun kann man nach drücken 
der Retore-Taste den Cursor wieder bewegen. 


m “ C64 + VC20 u | Tips & Tricks 


C64+VC20 Tips & Tricks 
Einschalttest ae 
Stoptaste abschalten - 
Will man ein absturzsicheres Programm schreiben, so muß m | 
man verhindern, daß das Programm beim Versuch eine Will man die Stoptaste im Programm verwenden, ohne 
ausgeschaltete Floppy (Drucker) anzusprechen abstürzt. daß dadurch das Programm unterbrochen wird, so kann 
Poket man in 768 den Wert 185, so werden Fehlermel- man sie mit POKE808,250 (vC20: POKE 808 ‚114) ab- 
dungen unterdrückt. Dann kann man das Gerät anspre- . schalten. 
‚chen. Die Statusvariable ST ist -128, wenn das Gerät Man kann dann im Programm mit PEEK(145) abfragen, 


nicht eingeschaltet ist. ob die Stoptaste gedrückt wurde. 
; | . Das Aus- und Einschalten geht nicht vom Programm aus. 
Man kann den Tastaturpuffer dazu benutzen, einen Di- 
.rektbefehl einzugeben. 


C64+VC20 a ee Tips & Tricks er C64+VC20 | . Tips & Tricks . 


. Directory auslesen | | | ; | ! Blockverschieberoutine 


Will man das Inhaltsverzeichnis der Diskette Ts, so gibt Mit dieser Betriebssystemroutine kann man beliebige 
man in Direktmodus ein: LOAD “$”,8 und LIST  "Speicherbereiche verschieben, z.B. Bildschirminhalte, 
Dabei wird das Programm zerstört. Besser geht es mit Maschinenprogramme ... Da die Routine von Basic aus 
folgendem Unterprogramm: | nicht ansprechbar ist, wurde dieses Maschinenprogramm 
50000 rem Krrrrkrrrkrrr entwickelt: 

: 50010. rem *r+**+*kkk*directoryttrr* II | 10 fori=828t0860:reada:pokei,a:nexti 
50020 em HIER ETF ETR FEN. ' 12 data 173,93,3,174,94,3,133,95,134,96 
50030 openl,8,0°$0” :get#1l,a$,b$ 0 14 data 173.95,3.1 74.96,3,133.90,134,91 
50040 get#1,a9, b$:get#1,a$,b$ :c=0 16 data 173,97,3,174,98,3,133,88,134,89 

18 data 76,191,163 


(Fortsetzung Rückseite) Steht dann im Kassettenpuffer. 


Demoprogramm 


a9=“‘9 Leerzeichen”:b$=' 1234567890abc” 
for h=0 to 15:poke53281,h:rem hintergrund 
printchr$(147):for z=0 to 15 

read fc:poke646,fc:rem zeichenfarbe 
printchr$(18)a$+chr$(146)+b$+str$(fc) 

next z:restore 

data 0,6,9,11,2,4,8,12,14,10,5,15,3,7,13,1 
print:print“hintergrund”h 

sys58592:next h:rem wartet auf leertaste 


ei KO OO SI N DUO ND m 


oO 


Man kann den Fehler auch im Betriebssystem direkt 
beheben. Dazu müssen Interpreter und Betriebssystem 
in’s RAM kopiert und auf RAM umgeschaltet werden. 
Zeile 30 korrigiert den Fehler. 

for i=40960t049151:poke te :next' 

for i=57344t065535:poke i,peekli):next 

poke58587,134:poke58588,2 

pokel,5:rem ** auf ram umschalten 

rem ** mit poke 1,7 wieder auf rom 


Beispielprogramm: 

10 printchr$(147)“poke808,250:rem stoptaste 
aus“ :print:print:print:print”’goto30” 

15 fori=1tol500:next 

20 poke631,19:poke632,13:poke633,13: 
poke198,3:end 

30 print,bitte stop drücken!” :if 
peek(145)AU127 then 30:rem (VC20:254) 
40 print“programm geht weiter!” :if 
peek(145)AU127 then 40 

50 poke808,237:rem (VC20:114) stop 
einschalten 


Bevor das Programm mit SYS828 gestartet wird müssen 
noch folgende Werte eingepoket werden (In LO/HI 
Bytes zerlegt): 
In 861/862 alter Blockanfang 

863/864 altes Blockende +1 

865/866 neues Blockende +1 
Beispiel: Interpretert+ Betriebssystem ins RAM 
20 fori=861t0866:pokei,0:next i 
22 poke862,160:poke864,192:poke866,192:5sys828 
24 fori=861t0866:pokei,0:next i 
26 poke862,224:sys828:pokel,53:rem auf ram 
umschalten 


Weitere Beispiele: 

10 deffn Busen 

20 def fn lo(x)=X-256*fn hi(x) 

70  deffnbc(as)=(as andl28)/2or(as and63) 

80 deffnmitte(u)=(len(a$)/2-20)*(l1en(a$)A41): 
rem u ist Dummyvariable 

100 rem **** anwendungsbeispiele ***** 

120 print“basicanfang 10/hi”:x=2049 :printfn 
10(x), fn hi(x) 

170 print“ascü- in 

bildschirmk ode“ :print‘“‘a=“ ‚fin bc(asc(‘a”)) 

180 print“text zentrieren” 

182 | 
fori=1t08:a$=mid$(‘“123456789” i):printtab(fn 
mi(0));a$:next 


rem anführungszeichenmodus aus mit restore-taste 
for a=828 to 834:read x:poken,x:next 
datal69,0,133,212,76,71,254 Ä 

rem vc20: poke833,peek(792):poke834,peek(793) 
poke792,60:poke793,3:end 

rem normal: C64 : 792,71 /793,254 
rem normal : VC20 : 792,173/793,254 


rem **** einschalttest **+* +++ ++ 
g=8:rem gerätenummer drucker=4 
obenl ,g,15 | 
poke768,185:rem keine fehlermeld. 
print#1:closel:rem gerät ansprechen 
poke768,139:rem meld. zulassen 
printchr$(147)“ok”:if st=-128 then 

printchr$(147)“floppy einschalten!” 

160 rem ****fehlerkanal auslesen**** 

170 openl,8,15:rem floppy 

180 get#1,a$:printa$;if stÄAU64 then 20 

190 closel 


if adAU““ then c=asc(a$) 
if DB ÄU““ then c=ctasc(b$)*256 
print mid$(str$(c),2);tab(5); 
get#1,b$:if stÄUO then 50150 
if b$AUchr$(34 then 50080 
get#1,b$ ÄUchr$(34)then 
printb9 ;:goto50100 
50105 if peek(653)AU0 then 50150:rem shift 
50110 get#l,b$:if b$“”then 50110 
50120 poke211,20:c$=‘" = 
50130 c$=cI+b$:get#1,b$:if DJÄU“” then50130 
50140 print,left$(c$,3):if st=0 then50040 
50150 closel 


Wer hat ein Herz und ver- 
kauft einem mittellosen 
Schüler billigst eine funk- 
tionstüchtige 1541-Floppy? 
Habt Erbarmen und meldet 
Euch bei: Mark Rickers, 
Görlinger Zentrum 12, 
5000 Köln 30, Tel: 0221/ 
501471. 

Suche dringend Software 
aller Art für C 128. Tım Ko- 
ber, Haus-Endt-Str. 128, 
4000 Düsseldorf 13. 


C16 + 64 K + Datasette + 

2 Joystick Adapter + King- 
softs C 16-Buch + Data Bek- 
ker, C 16-Tips + Tricks + 10 
gekaufte Programme z.B. 
Acetom, Flight, Path, Grand- 
master, Moon-Buggy, Ghost 
Town usw. + Abdeckhaube + 
30 Programme. Alle Teile 
auch einzeln! Gesamtpreis 
400,— DM. Tel: 02445/8023; 
C 64-Adressenverwaltungs- u. 
Videokass.Verw.Progr. auf 
Disk + Handbuch, je unter 
13,— DM. Info 80 Pfg.M. 
Rau, Hühlweg 46, 8580 Bay- 
reuth, Tel: 0921/92907, 

ab 14.00 Uhr. 

Achtung!!! Verk. Progr. we- 
gen Systemwechsel! New- 
stroom 35,—, Homeword 
25,—, viele Spiele unter 

15,— DM. Jet, Wintergames, 
Copys usw. Liste anfordern 
bei: Jack Müller, Hunxer- 
Str. 339, 422 Dinslaken. 

C 64 Software !!! 200 Progr. 
(Disk. Cass.} neu, original, 
60 % Rabatt, Info: 2,— DM 
bei: B. Biffinger, Dammweg 
25, CH-3904 Naters. 

Verk. VC-20 + Handbuch + 
Spilebuch + 3 Spiele für 
100,— DM. Anfrage bei: 
Frank Dorissen, Alte Bahn 4, 
4193 Kranenburg. 

Verk. 1702 Monitor, 2 Mo- 
nate alt/ mit Garantie, für 
550,— DM. | 
Suche C 64 bis 300,— DM. 
Peter Christ, Tel: 02241/ 
47516. 

Wer hat praktische Listings 
für C116? Bitte an folgende 


Adresse: Oliver Sonnenschein, 


Staufenstr. 21, 5143 Wassen- 
berg, Tel: 02432/5727. 

An alle C 16, C 116 Plus/ 

N User. Tausche Software 
(Tape, Disk). Suche vor 
allem noch: ACE, Comando, 


Game Maker, Wizzard & Prin- 


cess. Listen bitte an: Bern- 
hard Ömer, Weichstetten 28, 
A-4502 St. Marien. 
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Suche Printmaster für C64, 
sowie Fontmaster 1 + 2, 
Printshop Grafiken und ande- 
res in dieser Richtung. Des- 
weiteren Football Manager 
(Fassung z. Abspeich auf Disk) 
Ernst W. Holfelder, Moltke- 
str. 6, 8500 Nürnberg 80, 
Tel: 0911/260054. 


Achtung!!! An alle C16/C64 


. [PC128-Besitzer! Gebe von 


Priv. noch günstig Progr. ab. 
Info. Tel: 0531/849400, ab 
15.30 Uhr, auch Sa. und So. 
Free Soft C64. 18 Disketten 
voll Spiele und Utilities. Je 
Disk 10,— DM. 10 Disks 
80,— DM. 18 Disks 150, — 
DM. Liste gegen 80 Pfg.- 
Marke bei: Ulrich Müller, 
Hertzstr. 45, 8600 Bamberg. 
Wegen Systemwechsel verk. 
ich: C64 + Datasette + Ab- 
deckhaube, Joyst + Reset- 
taster und ca. 200 Progr. 
noch Garantie bis 28.7.86, 
680,-—- DM VB, Tel: 0201/ 
733981 in Essen. 

Drucker für C64 zu verk. 
„Okimate 20°, sowie 5 1/4 “ 
Leerdisketten und Joysticks 
(auch einzeln), Preis: VB. 

S. Sommerer, Dr.-Würzburger- 
Str. 13, 8580 Bayreuth. Tel: 


0921/41748, ab 18.00 Uhr. 
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Suche Mailboxprogr. oder 
Programmautoren, die welche 


schreiben. S. Sommerer, Dr.- 


Würzburgerstr. 13, 8580 
Bayreuth. 

Verk. für C64 oder C128 
System-Lotto Verw. 12,—, 
VEW 132. Eigene oder C64 
erstellte Tipreihen. Echte 
Auswertung in sequentieller 
Datei (nur Diks) 45,— DM. 
P. Kuhn, Tel: 0711/635912. 
Commodore C 16 + Data- 
sette + Basic-Lehrbuch + 
Lernkassette. Garantie bis 
30.09.86. Wegen Clubauflö- 
sung nur 189,— DM - im Set. 
Info: Tel: 06201/69189. 


. Viele Spiele! Billig! Joystick- 


Adapter 12,— DM. Jede 
Menge Tips & Tricks. 64 K- 
Erweiterung nur 79,— DM, 
inkl. Einbau. Wolf Dieter 
Herrn, Bischofsgasse 9, 
6940 Weinheim. 


Le  — 


Ci6er, 116, Plus 4: Gründe 


einen Programmumschlag- 
platz. Kaufe, tausche und 
verkaufe Progr. (selbstge- 
macht oder gekauft). Keine 
Clubgebühr. Info: 1 frankier- 
ter und adressierter Rück- 
umschlag (Drucksache = 


—,60 DM) an: Achim Lie- 


beck, Wehrley 7, 5372 
Schleiden. 
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Holschuh Daten-Cassetten-Discetten 


Preise auf Anfrage! 


Daten-Cassetten — Kopien jede Stückzahl! 


5,25-Discetten 


Preise auf Anfrage! 


Neu!!! Computerbriefclub 
such in BRD und europäi- 
schem Ausland interessierte 
C 64-Fans!!! Schreibt an: 
Rüdiger Hopf, Am Tüssel- 
beck 94, 4200 Oberhausen 
11. 

Hilflos 
wirst Du untergehn, wirst Du 
erst die Zahlen seh’n. 
Derzeit größte Primzahl über 


65000 Stellen, 


auf 8 Seiten DIN A3 Papier 
für nur 20,— DMbeiRR. 
Hüwel, Pf. 1725, 4790 
Paderborn. 
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— Kopien jede Stückzahl! 


Hoischuh 
Keltenstr. 67 
6140 Bensheim 


Teil. 06251 —62665 


!!Achtung Motorsportler!! 
Ver. Original Diskette 
Motorsport 64 (Wertungs- 
progr) für 20,— DM. Info 
—,50 DM Porto: G. Demmer 
Eichenmarkweg 5, 4600 
Dortmund 30. 

Verk. wg. Auslandsstudium 
neuen PC 128 D& 1901 
Monitor & Drucker CP80-X & 
TV-Tuner (damit wird Moni- 
tor ein TV!) Alles zusammen 
für 1!13000,— DM!!! A. 
Schwarz, Blütenstr. 8, 8000 
München 40, Tel: 089/2723 
993. 
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**(016/116 Umbau auf 60 
671 KB** Free-Port Frei 
inkl. Umbau für 97,80 DM! 
Mit 100,— DM senden an: 
(2,20 für die Post) Elektro- 
nik-Technik, Tannenweg 9, 
2351 Trappenkamp. 


Suche C16-Software. Nur 
Kassettenprogramme! Zu- 
schriften an: Frank Brdoch, 
Ger.-Hauptmann-Str. 19, 
2120 Lüneburg. 
Suche Tennis- und Handball- 
spiele aller Art für C 64. 
Angebote an: T. Gülbahar, 
Isarmoosweg 43, 8312 Din- 
golfing. 

Commodore 64 

Commodore 128 
Greetings to ECS, FBI, JEF, 
RCS, RIP and all Freaks and 
Users! Special greetings to 
BCS! Hello Chrissy and 
‚„Jenny’”! Oliver Koch, 
Grüner Weg, 5024 Pulheim 3. 
EEE ESTER EEZUSRESTERREEE 


**C16/116 Umbau auf 60 
671 KB** Free-Port Frei 
inkl Umbau für 97,80 DM! 
Mit 100,— DM senden an: 
(2,20 für die Post) Elektronik 
Technik, Tannenweg 9, 
2351 Trappenkamp. : 
Lehrerprobleme? Wir führen 
Waffensysteme aller Art! 
Melden unter Tel: 16/490 
306! 
Commodore C 16 64 K + 
Datastette + Basic Lehrbuch 
+ Kassette, absolut neuwer- 
tig, echte 60671 Byte frei, 
279,— DM, Tel: 06201/ 
69189. 
C 64. Suche Anleitung zum 
Spiel Scarabäus. Biete 5,— 
DM für Kopie. Verk. Original 
Spiel The Eidolon für 25,— 
DM. Suche gute Spiele für 
C64. Listen an: Oliver Schnei- 
der, Mozartstr. 6, 6991 Igers- 
heim. 

!!Suchel!! 
Wer schenkt armen Schüler 
Floppy? (Auch defekte) 
Melde sich bei: Daniel Houl- 
mann, Lerchenweg 2, 2544 
Bettlach ISchweis): 
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VC 20 Besitzer! Habe mein 


. VC 20 verschrottet, aber 


noch Zubehör abzugeben. 
VIC1211A 85,— DM. 


„64 K Modul 185,— DM/ 


225,— DM. =-fach Stecker- 
platz 50,— DM, Eprompro- 
gramm-ER 150,— DM, IEEE 
Interface 170,— DM. Ant- 
wort garantiert von D. Geue, 
Rathausstr. 12 a, 6238 Hof- 
heim 4. 
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Verk. C16 Progr. Utilities. 
Nur auf Kass. Anschrift: 

T. Schröder, Dreihäusergasse 
2,3550 Marburg 6. 

VC 20-Erw.3K,8K,16K, 
27 K,32 K, umschaltbar für 
100,— DM zu verk. Tel: 
06323/5609. 

Verk: C64 + VC 1530 + In- 
put 3/85, 10 besp. Kass. und 
Literatur für 500,— DM und 
20 Zeitschriften für 30,— DM 
(64er, Run, Happy usw.). 
Schreibt an: Wieland Wagner, 
Hauptstr. 44/III, 7410 Reut- 
lingen 2. Suche Software für 
C64 u. VC 128. 

Haben Sie selbstgeschriebene, 
eigene Progr. für VC 64/128? 
Wir kaufen sie. Schreibt an: 
R. Oldenburg, Wulffhagen- 
‚str. 34, 2190 Cuxhaven. Evtl. 
Programm beifügen. 

Verk. C 64 + 1541 + Dataset- 
te + 50 Orig.-Spiele + 
Farbmonitor + 12 Bücher 

+ Akustikkoppler mit Soft- 
ware (ohne FTZ) alles Neu — 
Topp-Zustand, 1 Monat alt. 
Preis 1850,— DM. Peter 
Stöckel, Planckstr. 16, 2000 
Hamburg 50. 

Suche für VC 20 Statistik- 
modul No 190050, Relais- 
modul No 190030. Rudi 
Frech, Tel: 0228/234844. Te- 
lefonkosten werden ersetzt. 
‚Suche Commodore Floppy 
1541! Biete bis 200,— DM. 
„Muß“ technisch völlig o.k. 
sein!!! Schreibt an Hajo 
Goettel, Terneddenstr. 72, 
4650.Gelsenkirchen, Tel: 
0209/496583, 

VC 20 + Datasette + Drucker 
Suche dringend Anwendungs- 
progr. für VC 20 + 16 K-Erw. 
z.B. Adressenverwalt. mit 
Ausdruck, Textverarbeit. 
usw. Angebote bitte an: Rolf 
Baab, Herrenstr. 21 b, 6683 
Spiesen-Elversberg. 

Verk. VC 20 + Datasette + 
Spiele + Modulspiele + 3 + 8 
+16 + 24 KB-Erw. + Joy- 
stick + Listings + Leerkass. 

+ 7 Bücher + 2 Kass. für 

C 16, zusammen 400,— DM. 
Martin Stahmer, Fr. Ebert 
Damm 26, 2000 Hamburg 70 
Tausche VHF/UHF-Compu- 
terscanner digitale Anzeige + 
Timer 32000 Frequenzen ge- 
gen MPS 802, Eprommer + 
Modulkarte + sonstiges für 

C 64. Angebote an: K. Kohler 
Ulmenweg 6, 7074 Mögglin- 
gen. 
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Verk. PC 128 550,— DM VB. 
Tausche Software, Amiga u. 
PC 123 D nur 128er u. CP/M 
Modus. Gerhard Hünig, 
Nickelsweg 3, 6128 Höchst i. 
Odw., Tel: 06163/2629. 
Verk. Orgel, 2 Manuale + 
Basspedal, NP 2500,— für 
1000,— DM oder tausche sie 
gegen C 128 + Floppy oder 
Drucker. T. Gnielinski, 
Habichtswalderstr. 72, 3502 
Vellmar, Tel: 0561/822377. 


C64,C 128, PC 20, Commo- 


dore-User. WW-Computer- 
Club nimmt noch neue Mit- 
glieder auf — Auch Kontak- 
te mit anderen Clubs er- 
wünscht. Briefadr: WW-Com- 
puterclub P. O. Box 13, 
CH-9202 Gossavisg (zu verk. 
Monitor C 1701,16 Farben, 
Video-Anschl. Tel: 071/282 
116). 

Formel 64, Steckmodul für 
den CBM 64, mehr als 60 
neue Befehle, 32 KB RIM, 16 
x schnellere Floppy, Centro- 
nics-Schnittstelle usw. Nur 
Einstecken in Rechner + 
Floppy. Kein Löten erforder- 
lich!!! Np 149,—, für 119,— 
DM zu verk. Tel: 06152/54 
520. 
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Commodore 64 Programme. 
Über 100 Porgr./Bücher auf 
Disk. oder Kass. zu verk. 
Orig. Software bis zu 60 % 
billiger! Info (mit frank. 
Rückkuvert) bei Beat Biffiger, 
Dammweg 25, CH-3904 
Naters. 

Verk. VC 20 + 32 K-Speicher- 
Erw. + 9 Spielemodule + 
Datsette + Joystick + 1 Sfot- 
ware-Paket, Anwender und 
Spiele. Tel: 06293/1678, 
Preis: 390,— VB. 


Verk. Commodore-Interface 


von Star für SG 10 für 130,— : 


DM. Es ist nicht benutzt wor- 
den. Kaufdatum: 21.12.85. 
NP: 259,— DM. Carsten 
Schlenker, Schölkestr. 2 c, 
3300 Braunschweig. Tel: 
0531/58947, ab 15.00 Uhr. 
Verk. C 64 (4 Monatealt) - 
voll funktionsfähig, 500 - ' 
600,— DM.T. Gnielinski, 
Habichswalderstr. 72, 3502 
Vellmar. 
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 Verk. Originalkass. C64. 


Suche Tauschpartner und An- 
leitungen (Jum Jet, Cata- 
combs). Suche Anwendungs- 
progr. und Adventuerelösun- 
gen. Tausche auf Disk und 
Tape! Markus Faust, Kuchen- 
berg 211, 6680 Neunkirchen. 


Lottosystem-Gemeinschaft! 
Gemeinsam spielen — ge- 
meinsam gewinnen. Compu- 
terauswertung, Beitrag 
35,— DM monatl. Info geg. 
80 Pfg. Briefmarken. ]J. 
Haccius, Schmiljanstr. 27, 
1000 Berlin 41. 

Die große Gelegenheit!!! 
Alles neu und mit Garantie! 
C16/C164 mit 64 KRAM 
198,— DM. Plus 4 mit User- 
Software 298,— DM. RAM- 
Erw. 64 K C16/116 100, — 
DM. Uwe Peters, Tannen- 
weg 9, 2351 Trappenkamp. 
Suche für meinen Plus 4 ein 
Programm, daß 64er Progr. 


auf meinem Computer laufen 


(umsonst). Tel: 02943 / 

2544, ab 15.00 Uhr täglich. 

C 64 ohne Floppy/Datasette 
wegen Wechsel auf 128er. Ab- 
holpreis 300,— DM. Werner 
Golz, Hermannshöhe 52, 
4630 Bochum. 

Wersi Board C 64, 250,— DM, 
kaum gebraucht, inkl. Soft- 
wate, für Abholer. Werner 
Golz, Hermannshöhe 52, 
4630 Bochum. 


Suche !!! Datasette für C 64 


ohne Defekte. Nehme günstig- 


stes Angebot. Tel: 07703/636 
Verk. meinen C 16 mit 64 K 
Byte RAM, 60671 Bytes frei. 
plus Datasette für nur 220,— 
DM. Willi Keßler, Ruprecht- 
str. 14, 6736 Edesheim, 

Tel: 06323/7114, nach 18.00 
Uhr. 

Verk. VC 20 mit 6 Original- 
cass. + Modulspiel + Literatur 
109,— DM; Tastatur vom VC 
20 ohne Platine 35,— DM; 


_ mit fast intakter Platine 


55,— DM; Netzteil für 
C64/VC-20 42,— DM; 64er- 


_ Ausgaben 4/5/6/1984 27,— 


DM. Tausche Geo-Hefte 


gegen C64 oder Floppy 1541. 


Tel: 09732/4297. 
Computerfreak, beruflich 
Geschäftsmann, 40, sportl., 
nett, sucht liebenswerte Part- 
nerin — Bedingung: SIE muß 
oft und gern beruflich + pri- 
vat computern. Gemeinsam 
ist's noch spannender! Erbit- 
te Deinen Anruf! Fritz, Tel: 
06171/24826. 
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C128-Club International. Ko- 
stenlose Mitgliedschaft und 
aktuelle Clubzeitschrift. Wir 
sind der Club für jeden C 128 


 (D)-Besitzer. Info: Lars Blu- 


menhofer, Dorstener Str. 31/ 
39, 4350 Recklinghausen. 


C16/116 RAM-Erwei. 60671 
Bytes frei für 100‘- DM. Ge- 
rät mit 100,— DM an Uwe 
Peters, Tannenweg 9, 2351 
Trappenkamp senden, Umbau 
innerhalb 1 Tag, kosten inkl. 
alles, auch Pkt. geb. MWSt. 
und Versandkosten. 
Einzelblatteinzug für GP 

100 VC, 15 Min. Bauzeit, 
narrensichere Bauanleitung, 
Zusendung portofrei!!! VR- 
Scheck an: J. Walther, Neu- 
köllner Str. 11, 7250 Leon- 
berg. Mit neuem Zeichen- 
satz mit Unterlängen und 
Schreibmaschinenprogr. Disk- 
Tape 40,— DM, Billigdrucker 
Spitze! 

Verk. VC 20 m. eingeb. LSPR 
inkl. Datasette, 16 K Erw. 6 
Steckmodulen, Paddel, Basic- 
Kurs, 60 Spiele uva. M. Gegen 
Höchstgebot, Tel: 06124/ 

18, ab 15.00 Uhr. 

Kaufe und tausche Progr. 

für C16, + 4.100 %ige Ant- 
wort. Listen an: Martin Hartl, 
Waldweg 5, A-4482 Ennsdorf. 
Verk. VC20 +16 K-Erw. + 
Monitor VIC 1213 + VIC 19 
08 Poker + Star-Defender + 
VC-Handbuch + 30 Labyrint, 
sowie auch das VG 20-Basic 
Lernbuch. Verkaufspr. 

200 ,— DM. Harald Hollen- 
bach, Friedr.-Ebert-Str. 50, 
6800 Mannheim 1. 

Suche Software für den C128. 
Nur CP/M und C128-Modus. 
Wenn möglich mit Handbuch. 
Angebote bitte an Christoph 
Franzen, Bonifatiusstr. 70, 
4130 Moers Asberg, Tel: 
02841/51413 richten. 
C16/116/+4 brandneuer Soft- 
ware-Versand! Einführungspr. 
Fast 100 kommerzielle Spiele 
und Progr. Die neuesten Titel 
aus England! Katalog gegen 
frankiert. Freiumschlag von: 
Softo Soft, Blanckenagelweg 
9,4770 Soest. P.S. Brandneu! 
Die ersten Disks für C16. 
Supergelegenheit!!! Alles 

neu mit Garantie. C16/C164 
mit 64 KRAM, kmpl. 198 ,— 


- DM. Plus 4 mit User-Soft- 


ware kmpl. 298,— DM. C16/ 
116 RAM-Erw. 64 K, kmpl., 
100,— DM. Uwe Peters, Tan- 
nenweg 9, 2351 Trappen- 
kamp. 
C-64-Adressenverwaltungs- 
u. Videokassettenverw.Progr. 
auf Disk. + Handbuch, je 
12,95 DM.M. Rau, Hühlweg 
46, 8580 Bayreuth, Tel: 09 
21/92907, ab 14.00 Uhr. 
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Daran D 


DATA BECKER hat eine tolle Nachricht für alle C 64 Anwender: 


KALKUMAT Das leistungsstarke, universelle Kalkulationsprogramm mit dem integrierten Grafikpaket 
KALKUGRAPH. Statt bisher DM 198,- jetzt nur noch DM 99,— 


CCOMPILER C ist die Sprache der Zukunft und kostet als PROFI-C für den Commodore 64 bei uns 
jetzt nurnoch DM 99,-— 
PROFI PASCAL Das umfassende PASCAL-Entwicklungssystem mit Compiler, Editor, Assembler, 1541- 
| Beschleuniger und Utility-Paket. Komplett statt DM 198,- jetzt nur noch DM 99,- 


XPER_ Ein richtiges Expertensystem zum Lernen und Üben. Statt bisher DM 298,- jetzt nur noch 
DM 99,- 


FORTH Umfassende FORTH-Version mit ausführlichem Handbuch statt bisher DM 99,- jetzt nur 
noch DM 49,— 
PROFIMAT Der weltbekannte Klassiker bietet einen komfortablen Maschinensprache-Monitor und 
einen Makro-Assembler, zusammen statt für bisher DM 99,- nur noch DM 49,— 
DISKOMAT Das umfassende Utility-Paket für alle 1541-Anwender statt DM 99,- jetzt nur noch 
DM 49,- 
SYNTHIMAT Verwandeln Sie Ihren C 64 mit diesem Spitzenprogramm von Thomas Dachsel in einen 
polyphonen Synthesizer. Statt DM 99,- jetzt nur noch DM 49,- 
SUPERGRAPHIK Die starke Grafik-Befehlserweiterung mit den vielseitigen Möglichkeiten. Grafik-Power 
statt bisher DM 99,- für nurnoch DM 49,— 


MATHEMAT Bei Hausaufgaben hilft der MATHEMAT ebenso wie bei komplizierten Berechnungen und 
das statt für DM 99,- jetzt für nurnoch DM 49,- 


UNI-TAB Jetzt noch preiswerter in die neue Spielsaison mit diesem universellen Pro- 
gramm zur Verwaltung von Sporttabellen. Statt bisher DM 69,- jetzt nur noch DM 29,— 


JUNIOR MATHEMAT Spielend lernen Kinder Mathe - mit diesem Mathematik-Lernprogramm für das 
Grundschulalter. Statt bisher DM 69,- jetzt nurnoch DM 29,- 


BRUSH UP Der dreiteilige Lernkurs, mit dem Sie Ihre Englisch-Kenntnisse aufpolie- 
ren können. Pro Teil statt DM 49,- jetzt nur noch DM 29,—- 


POLISSEZ Die ebenfalls dreiteilige Französisch-Version unseres beliebten 
Sprachlernkurses. Pro Teil statt DM 49,- jetzt nur noch DM 29,- 


SUPER 4 Vier Superspiele auf einer Diskette. Statt bisher DM 49,- 
jetzt nurnoch DM 29,- 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 


SERVICE 


AO/80 ZEICHEN- 


UMSCHALT-BOX 


Was den Bau der 40/80-Zeichen-Um- 
schaltbox betrifft, so habe ich mich 
hauptsächlich an das C 128 Hand- 
buch gehalten. Dort wird im An- 
hang L neben der Pinbelegung auch 
der Anschluß eines monochromen 
Monitors beschrieben. 

Aus den beiden Einzelbeschreibun- 


Nun ist die Abschirmung des Moni- 
torsteckers (Masse) mit dem Pin 2 
des DIN-Steckers zu verbinden. 

Als nächstes wird die Video-Leitung 
des Video-Steckers mit dem mittle- 
ren Kontakt des Umschalters ver- 
bunden. 

Der Pin 1 des DIN-Steckers wird an 


Video Pin 2 


1% Video Pin 1 


a RGBPin 7 


Sm 


Schalterstellung im 40-Zeichen-Modus 


© 


nn nn men u. em einen mn 


Schalterstellung im 80-Zeichen-Modus 


Kontakte des 
40/80-Zeichen- 
Schalter 


Video Pin 2 


# Video Pin 1 


RGBPin 7 


Kontakte des 
40/80-Zeichen- 


—— Schalters 


gen kann man nun, nach meinem 
Schaltplan, eine einfache, aber recht 
effektive manuelle Umschaltung zwi- 
schen 40 und 80 Zeichen erreichen. 
Der erste, obere Teil des Schaltplans 
zeigt eine einfache Umschaltung, die 
auch ohne Eingriffe in den Rechner 
durchgeführt werden kann. Hierzu 
braucht man lediglich einen Um- 
schalter, einen RGB-Stecker und 
einen 8poligen DIN-Stecker (270. 
Grad), einen Monitorstecker, sowie 
ca. 1,5 m Kabel von 1,5 mm Durch- 
messer. Wer es ordentlich liebt, 
kann sich außerdem noch ein Ge- 
häuse zulegen, an dem er den Schal- 
ter befestigt, und in dem er über- 
schüssiges Kabel verschwinden las- 
sen kann. 
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dem linken Kontakt des Umschal- 
ters angelötet und der Pin 7 des 
RGB-Steckers wird am rechten Kon- 
takt des Umschalters befestigt. 

Nun ist die erste Schaltung schon 
fertig. Zum Test stecken wir alle 
Stecker in die dafür vorgesehenen 
Buchsen und schalten sowohl den 
Monitor, als auch den C 128 ein. 
Wenn wir im 40-Zeichen-Modus 
sind, und kein Bild auf dem Monitor 
haben, so betätigen wir den Um- 
schalter. Nun müßte das Bild klar 
und deutlich zu erkennen sein. Als 
nächstes schalten wir sowohl den 
Umschalter, als auch die 40/80-Zei- 
chen-Taste auf 80-Zeichen-Modus. 
Nun müßte die Darstellung im 
80-Zeichen-Modus erfolgen. 


Sollte dies nicht der Fall sein, so 
überprüfen Sie bitte den Aufbau der 
Schaltung oder die Lötstellen. 

Wie Sie sicher beim Testen bemerkt 
haben, müssen Sie nun zur Umschal- 
tung immer zwei Schalter bedienen, 
nämlich den Schalter am Rechner 
und den neu installierten Umschalter. 
Um sich die Arbeit weiter zu verein- 
fachen, ist ein kleiner Eingriff in 
den Rechner erforderlich. (Achtung, 
Garantieverlust!!) 

Wir lösen die Befestigungsschrau- 
ben an der Unterseite des Rechners 
und anschließend das Masseband der 
Abschirmung. Als nächstes ziehen 
wir die Steckverbindungen der Tasta- 
tur und der LED ab. Nun können 
wir den Deckel mit der Tastatur ab- 
nehmen. Wenn wir den Deckel so 
drehen, daß die Tastatur nach unten 
zeigt, können wir drei Tasten erken- 
nen, die zur Oberseite durchgeführt 
wurden. Für uns ist die Taste in der 
Mitte des Deckels interessant. Diese 
Taste dient zum Wechseln des 40- 
Zeichen- bzw. 80-Zeichen-Modus. 
Mit einem Lötkolben lösen wir die 
beiden Metalleitungen, die den 
Schalter mit der Tastaturplatine ver- 
binden. Anschließend löten wir an 
diese beiden Drähte jeweils ein Ka- 
bel an, und führen dieses aus dem 


Computer heraus. Der Rechner kann 
nun wieder zusammengebaut 
werden. 


NACH BELIEBEN 
DURCHSCHALTBAR 


Die beiden Kabel, welche wir aus 
dem Computer herausführen, wer- 
den nun an dem mittleren und an 
dem rechten Kontakt eines 2poli- 
gen Umschalters befestigt. 

Mit den Video- und RGB-Kabeln 
verfahren wir, an der zweiten Kon- 
taktreihe des zweipoligen Um- 
schalters, wie schon am Anfang 
beschrieben. 

Die Original 40/80-Zeichen-Taste 
ist nun außer Betrieb. Dafür kön- 
nen wir mit dem Umschalter nach 
Belieben in die beiden Modi 
schalten und diese auch gleichzei- 
tig für den Monitor durchschalten. 


Bauteileliste 


1 Umschalter zweipolig 

1 RGB-Stecker (Joysticksticker - 
männchen 

1 DIN-Stecker 8polig (270 Grad) 

1 Monitorstecker 

1,5 Meter Kabel 1,5 mm (eventuell 1 

Meter Koxialkabel zum Monitoranschluß 

1 Gehäuse 


Der komplette Materialsatz kostet ca. 
10 — 15 DM 


elektor computing (ec) "era 

Die Sonderheft-Reihe —tdi 

für alle, die 

mehr aus 

ihrem 

Computer 

machen - — 

wollen I Viele Leser 


haben uns brieflich 
oder telefonisch 
mitgeteilt: 

ec 4 war das 
bisher beste Heft 
der ec-Reihe. 


Unsere Antwort: 


= In ec 5 
= gehts erst 


D ERGONOnE 
Brig u- Plotte 
US- Inter 


“= richtig rund! 


| ec 5 erscheint am 1.7.1986, DM 18,— 


Schwerpunktthema: Interface-Techniken und Ergonomie. Mit der Schaltung eines hochauflösenden Maus-Interfaces (12 Bit) 
und einer Software-Maus für den C64. Und dazu noch ein Selbstbau-Plotter. 

65816/EC-65K: Software vom Betriebssystem bis zu Compilern gibt es bereits für den neuen 65816-Prozessor — Näheres in ec 5. 
Dazu passend: Die neue SRAM-Karte für den EC-65K. Beliebig oft im System einsetzbar, wahlweise 64 KByte oder 256 KByte 
pro Karte. 

EC-65 und EC-65K: Jetzt ist sie da — die Z80-CP/M-Karte. Wahlweise 4, 6 oder 8 MHz, Speicher wahlweise von 64 KByte bis 
1 MByte, RAM-Floppy, Software-Spooler usw. sind gleich "'eingebaut’’. Und eine Menge Software gibts kostenlos dazu! 

Das UCSD-p-System wird in einem ausführlichen Artikel beschrieben. 

V30: der 8086-Kompatible Prozessor von NEC — in ec 5 beginnen wir mit seiner Beschreibung. Für den EC-65(K) ist eine Karte 
mit diesem Prozessor in Vorbereitung — MS-DOS auf dem EC-65(K) heißt die Perspektive. 

Weitere Themen in ec 5: 64 KByte-Zusatzspeicher für Kolorator und andere Anwendungen, Auto-Dial (automatisches Wählen) 
fürs Mini-Modem, Datenbank-Systeme unter FLEX, FORTH auf dem EC-65, Assembler-Programmierung unter CP/M. 

Und zum guten Schluß ein komfortables Modem-Programm für den EC-65(K) und andere 6502- und 65816-Computer! 


SELSTINLTGETe Süsterfeldstr. 25 
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In der letzten Ausgabe stellten wir Ihnen einen Zusatz zur 1541 vor, der diese zum Überschalljet macht. 
Ohne Übertreibung: Sie haben die Befehlstaste noch nicht losgelassen, ist schon eine knallvolle Floppy kopiert 
oder ein ellenlanges Programm eingelesen. Da die COMMODORE-WELT stets bestrebt ist, „hinter die 
Kulissen’’ zu schauen: Hier der zweite Teil, in dem wir uns mit dem Umbau beschäftigen und noch einige 
selbsterprobte Verbesserungsvorschläge dokumentieren. 


Zuerst muß der Commodore 64 dar- 
an glauben (Garantiebestimmungen 
des Herstellers beachten). Alle Ver- 
bindungen werden abgesteckt, der 
Commodore 64 geöffnet, Tastatur- 
kabel und Kontrollampenkabel ab- 
ziehen, Platine ausschrauben, 
Schutzkarton (wenn noch vorhan- 
den) entfernen. Damit der Anwen- 
der zwischen Turbo-Trans und 

dem Original-Betriebssystem ROM 
wählen kann (aus Kompatibilitäts- 
gründen), muß die Chipselect-Lei- 
tung (Verbindung zwischen Pin 20 
des Kernal-ROM’s (U4) und Pin 16 
der PLA) wahlweise an das ROM 
U4 oder an das Turbo-Irans 
Eprom in der Expansionsport-Pla- 
tine (Bild 1) gelegt werden kön- 
nen. Damit die Anwender, deren 
Kernal (Betriebssystem) oder PLA 
gesockelt ist, keinen Eingriff in 
den Rechner machen müssen, ge- 
hört zum Lieferumfang von Turbo- 
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Trans eine kleine Sattelplatine, 

die das entsprechende Kernal-IC 
sockelt und die Chipselect-Leitung 
über ein zweipoliges Kabel zur Ex- 


Das Betriebssystem ROM auf dem 


Steckplatz U4 auf der Platine des 
Commodore 64 wird vorsichtig 
aus seiner Fassung gehebelt und in 
die kleine Sattelplatine gesteckt, 
wobei die Kerbe des Kernal-IC’s 


Bild 1 Bild 3 
vom Kabel weg zeigen muß. An- 
schließend wir ddie Sattelplatine 
wieder vorsichtig in den freien Ker- 
nalsteckplatz des C-64 gesteckt, 
wobei wiederum auf die richtige 
Polung (Kerbe in Richtung Kasset- 
tenport) zu achten ist. 

Sollte das Betriebssystem ROM 
nicht gesockelt sein, dies ist bei den 
neueren Modellen die Regel, ist ein 
Auslöten des Kernals und des PLA 
trotzdem nicht zu empfehlen. Prü- 
fen Sie, ob zumindest die PLA in 
einer Fassung steckt. Da die PLA 
bei unterschiedlichen C-64 Plati- 
nen auf verschiedenen Plätzen 
steckt, gilt folgender Hinweis: Es 
existieren im C-64 2 IC’s mit 28 
Pins, wovon der Sound-Generator 
die Bezeichnung 6581 hat. Das an- 
dere 28polige IC ist dann die PLA. 
Wenn also keines der benötigten 
IC’s in einer Fassung steckt, muß 
im Commodore 64 die Leiterbahn, 
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die Pin 20 von U4 mit Pin 16 von 
der PLA verbindet, unterbrochen, 
und es müssen die beiden Pins über 
das 2polige Kabel zur Platine (Bild 
1) im Expansionsport geleitet wer- 
den. Die Leiterbahn wird mit ei- 
nem scharfen Messer durchgeschnit- 
ten, wobei darauf zu achten ist, daß 
keine andere Leiterbahn verletzt 
wird. Damit die beiden Drähte 
nicht direkt an die empfindlichen 
IC’s gelötet werden müssen, emp- 
fiehlt es sich, die Drähte 1 mm ab- 
zuisolieren, zu verdrillen, zu ver- 
zinnen und in die Durchkontaktie- 
rung zu löten. Durchkontaktierun- 
gen sind Löcher in der Platine, in 
denen kein Bauteil steckt sondern 
nur Lötzinn (deswegen sieht man 
auch kein Loch) und die die Auf- 
gabe haben, eine Leiterbahn auf 
der Bestückungsseite mit einer 
Leiterbahn auf der Lötseite der 
Platine zu verbinden. Die Durch- 
kontaktierung liegt unter dem 28- 
poligen Soundchip 6581 (U1B8). 


(rechte 24polige graue Fassung, 
Kabel führt nach rechts) stellt die 
Verbindung zur Floppy dar. Die 
linke leere Fassung dient dazu, um 
ein Kabel für ein eventuell 2. Disket- 
tenlaufwerk (Device-Nummer 9) 
aufzunehmen. 


2.6 EIN- UNDUMBAUTIPS 1541 


Nun ran an die 1541 (vorher natür- 
lich alle Steckverbindungen entfer- 
nen). Hier sieht man, ohne den 
Deckel(!), zwei ins Auge stechende 
silberne Transistoren mit Kühlkör- 
pern. Davor befinden sich nebenein- 
ander zwei schwarze IC’s mit vier- 
undzwanzig Beinen und der Be- 
zeichnung (Aufdruck auf der Plati- 
ne, Bild 3) UB3 und UB4. Diese bei- 
den IC’s werden aus ihren Fassun- 
gen gehebelt und mit Aufklebern 
UB3 und UB4 gekennzeichnet. 
Diese IC’s werden beim Betrieb mit 
Turbo-Trans nicht mehr benötigt. 
Man kann sie zum Beispiel in Alu- 


Deswegen muß die Mutterplatine 
des C-64 umgedreht werden, damit 
man ein Kabel von der Lötseite 
des C-64 anlöten kann. Nach geta- 
ner Arbeit in umgekehrter Reihen- 
folge den C-64 wieder zusammen- 
bauen (logisch). 

Wem dies alles zu technisch war, 
und einen Lötkolben lieber nicht 
anheizt, der sollte sich diesen klei- 
nen Eingriff von einem Lötkolben- 
freak erledigen lassen. 

Die Karte (Bild 1) mit den Steck- 
kontakten wird in den Expansions- 
port des C-64 gesteckt. Von dieser 
Leiterkarte führen zwei Kabel zu 
zwei weiteren Platinen. Das 2poli- 
ge Kabel legt mit dem Umschalter 
wahlweise die Chipselectleitung für 
den Bereich HEX $E000-HEX 
$FFFF auf das Eprom auf der 
Expansionsportplatine oder auf 
das Commodore 64 Original ROM. 
Das 24polige Flachbandkabel 


Folie verpackt oder in Antistatik- 
Matten steckend sicher aufbewah- 
ren. Leider ist in einigen 1541-Mo- 
dellen das IC UB3 direkt eingelötet. 
Es gibt drei Möglichkeiten zur 
Problemlösung: 


a) Das IC auslösten oder auslöten 
lassen. 

b) Die Stromversorgung für dieses 
IC unterbrechen (Pin 24). 

c) Die Chip-Select-Leitung (Pin 20) 
unterbrechen und über einen 
10kOhm-Widerstand mit +5 Volt 
(Pin 24) verbinden. 


Wenn die Platine der Floppy vor Ih- 
nen liegt und die Kerbe des IC’s UB3 
nach links zeigt, ist Pin 1 links un- 
ten und Pin 24 links oben (siehe 
Zeichnung). Die Pins werden also 
entgegen dem Uhrzeigersinn durch- 
gezählt. Neben den IC’s UB3 und 
UB4 liegen die drei 4Opoligen IC’s 
untereinander, wovon die beiden 


oberen UC4 (Prozessor 6502) und 
UC3 (6522) ebenfalls aus der Fas- 
sung gehebelt werden müssen. Diese 
beiden IC’s werden dann in die 
Turbo-Trans-Platine gesteckt und 
zwar so, daf3 deren Kerben von 

der des Turbo-Trans (die 2x8 
Fassungen 16polig) weg zeigen. Das 
IC von UC4 (Prozessor 6502) wird 
oben eingesteckt. Das IC von UC3 
(6522) wird unten eingesteckt. 

Auf die jetzt freien 4Opoligen Fas- 
sungen der Floppyplatine können 
jetzt je drei 4Opolige Zwischensok- 
kel gesteckt werden. Nun kann man 
die Turbo-Trans-Platine in die freien 
AOpoligen Zwischenfassungen in der 
Floppy 1541 so einstecken, daß 
sich die beiden IC’s UC4 und UC3 
von oben gesehen wieder auf ihrem 
alten Platz befinden (Bild 5). 

Unter den beiden 40poligen IC’s 
auf der blauen Turbo-Trans-Platine 
befindet sich eine leere 28polige 
Fassung (Steckplatz entweder für 
8kByte CMOS-RAM oder ein 2764 
bzw. 27128 Eprom als Erweiterung) 
und ein 32KByte Eprom (27256), 
in dem das neue Turbo-Trans 1541 
Betriebssystem Version 2.7 steckt. 
Diese beiden 28poligen Steckplätze 
sind genau anders herum (Kerbe 
nach rechts) gesockelt. Also Vor- 
sicht beim Einstecken, immer auf 
die Polung achten! Links neben dem 
neuen Betriebssystem ist der Sockel 
für das 24polige Verbindungskabel 
zur Expansionsportplatine. Dar- 
über befinden sich 2x8 Stifte paral- 
lel nebeneinander (sog. Jumper). 
Hier können Brückenschalter und 
Taster mit verschiedenen Funktio- 
nen angeschlossen werden. 


2.7 UMBAU-ERGÄNZUNGEN 


Da uns nach dem Umbau der Floppy 
1541 deren Aussehen nicht mehr 
gefallen konnte, haben wir noch eini- 
ge zusätzliche Umbauten vorgenom- 
men, die vom Herstel- 

ler nicht vorgesehen waren, da nach 
Einbau der Turbo-Trans-Platine die 
1541 Original-Platine eine Höhe er- 
reichte, die ein normales Zusammen- 
bauen nicht mehr erlaubte. Der 
Deckel schwebte auf Stelzen, so 

ca. 2 cm über dem Laufwerk. 

Unser Lösungsvorschlag: 
Materialbedarf: 50 cm 40poliges 
Kabel, 4 x 40Opolige Kabelstecker, 
2x 40Opolige Fassungen, Kosten 

30,— DM. 


Auf zwei Kabelstecker das Kabel 
aufdrücken, auf die herausstehen- 
den Stifte die 2 Fassungen löten, 

die dann die IC’s UC3 und UC4 (Pro- 
zessor 6502) aufnehmen können. 
Das andere Ende des Kabels mit 

den Kabelsteckern versehen und in 2% 
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die blaue Turbo-Trans-platine 
stecken. Die Platine wird dann vor- 
ne über dem Laufwerk befestigt. 
Fertig, der Laufwerkdeckel läßt 
sich wieder normal auf die 1541 
setzen, nur hinten führt das 24poli- 
ge Verbindungskabel zur Expan- 
sionsportplatine. Noch ein Wort zur 
Wärmeentwicklung mit der Turbo- 
Trans-Platine. Wir konnten auch 
bei Dauerbetrieb (48 Std.) keine 
Temperaturen über 45 Grad an den 
Bauteilen im geschlossenen Gehäuse 
feststellen. Für Sicherheitsfanatiker 
besteht immer noch die Möglichkeit, 
den Deckel auszuschneiden und mit 
einem Lüftungsgitter (Kunststoff, 
in jedem Bastlergeschäft erhältlich) 
zu versehen. Die Optik ist dann im- 
mer noch besser als eine 1541 auf 
Stelzen. 


2.8 DIE FUNKTIONSTASTEN- 


BELEGUNG: 


Das Turbo-Access bzw. Turbo-Trans- 


Betriebssystem hat sowohl im 64er 
als auch im 128er Modus eine um- 
fangreiche Funktionstastenbelegung. 
Diese Funktionen werden mit der 
CTRL-Taste und einer Buchstaben- 
taste aufgerufen. 

>CTRL 

Directory ohne Programmverlust. 
>CTRLI<: 

Laden eines Basicprogrammes aus 
der Directory (LOAD Name“ ,8 
oder DLOAD‘“Name‘“) 
>CTRLKOMMA<: 

Laden eines Maschinenprogrammes 
aus der Directory wie folgt 
(Load‘“Name‘“‘,8,1/BLoad‘‘Name‘“‘) 
>CTRL X: 

Abfrage des Fehlerkanals 

>CTITRL O<: CLOSEI5:OPENI5, 


>CTRL '‘<: 

Nicht implementiert. 

>CTIRLP<: 
Lowresolution-Hardcopy nur vom 
40-Z-Bildschirm. 

>CTITRL+<: 

Nach dem Umschalten geht es mit 
"SPACE weiter. 

>CTRLO<: 

Das Scratchen aus der Directory ist 
nicht implementiert. 

Ferner wurden zwei Kontrollfunk- 
tionen des 128 PC auf andere Tasten 
gelegt: 


>CIRLI<=>CTRL A< (Umschal- 


tung der Zeichensätze erlauben) 
und> CIRL O< = >CTRL U< 
(Blinkdarstellung aller angezeigten 
Zeichen) 


Kerbe 


IC UB3 — Pin 1—24 


2.9 BEFEHLE FÜR DIE 
RAM-FLOPPYS 


Wenn Sie> CTRL O< in der Directo- Die nun aufgeführten Befehle wer- 


ry anwenden, gibt das Betriebssy- 
stem OPEN15,8,15,°S:Name‘ aus. 
Mit 'RETURN' wird dann das ent- 
sprechende File gelöscht. 

>CTRL P<: 
Lowressolution-Hardcopy des 
Bildschirms auf einen angeschlosse- 
nenen Drucker. 

SCIERL 

Umschalten der internen Floppy- 
adresse von 8 oder 9. Dies ermög- 
licht die komfortable Bedienung 
eines zweiten Laufwerkes mit der 
Adresse 9. 

>CTRL #<: 

BASIC-RENEW. Dieses RENEW 
rettet ein mit NEW oder RESET ge- 
löschtes Programm. | 
>CTRL+<: 

Absturzfreies Umschalten auf Ori- 
ginalbetriebssystem. 

Für den 128 PC im 128er Modus 
gelten folgende Anderungen: 
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den wie beim Turbo-Access durch 
die Tastenkombination CTRL-O 
"Kommando‘ ‘RETURN’ an das 
Laufwerk oder die RAM-Floppys 
gesendet. Selbstverständlich kön- 
nen diese Befehle auch aus einem 
laufenden BASIC-Programm, so- 
fern die Eingabe von Floppybefeh- 
len möglich ist, gesendet werden. 


TRANSFER 
(Turbo-Trans aktivieren) 


Format: OPEN 15,8,15,' T+’ 


Mit diesem Kommando wird das 
Laufwerk auf den RAM-Betrieb 
umgeschaltet. Sämtliche Zugriffe 
auf eine Diskette werden jetzt im 
RAM mit einer bis zu 200fach höhe- 
ren Geschwindigkeit ausgeführt. 
Sollte ein kopiergeschütztes Pro- 
gramm in die RAM-Floppy eingele- 
sen werden, wird für die Kopier- 


schutzabfrage interruptgesteuert 
wieder auf die Diskette zugegriffen. 
Die Interruptsteuerung bewirkt, daß 
nach dieser Abfrage die RAM-Flop- 
py wieder aktiviert wird. Sollte das 
TRANSFER-Kommando direkt 
nach Einschalten der Commodore 
1541 anwenden (in der RAM-Disk 
befinden sich keine sinnvollen Da- 
ten), führt Turbo-Trans erst ein 
DUPLICATE aus und schaltet dann 
auf die RAM-Disk um. 


TRANSFER 
(Turbo-Trans desaktivieren) 
Format: OPEN 15,8,15,”T— 


Mit diesem Kommando wird das 
Laufwerk Commodore 1541 vom 


RAM-Betrieb wieder in den ‘'norma- 
len‘ Diskettenbetrieb umgeschalten. 
Eigentlich ein Befehl, den man sehr 
selten benutzen wird, da man natür- 
lich die Vorteile des Turbo-Trans 
voll ausnutzen will. 


SWAP 
(Austauschen der beiden RAM-Disks) 


Format: OPEN 15,8,15,'SW” 


Dieser Befehl ist nur für die Besitzer 
der 512KByte Version von Turbo- 
Irans wichtig. Nach Eingabe dieses 
Kommandos vertauscht Turbo-Trans 
die Inhalte der beiden RAM-Floppys. 
Wenn die 256 KByte Version auf 
512 KByte aufgerüstet werden soll, 
können die fehlenden RAM-Bauteile 
(XXXXX) in jedem Elektronik-Fach- 
geschäft oder für DM 99,— beim Pla- 
tinenhersteller bezogen werden. Es 
sollten nur hochwertige Bauteile 
zur Verwendung kommen, um eine 
hohe Betriebssicherheit zu gewähr- 
leisten. 
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Anwendungsbeispiel: 


Der Anwender arbeitet mit einer pro- 


fessionellen Datenbank, um die um- 
fangreiche Schallplattensammlung 
zu verwalten und möchte natürlich 
die Vorteile von Turbo-Trans aus- 
nutzen. Sie benötigen eine Pro- 
grammdiskette, eine Datendiskette 
für die Klassikplatten und eine Da- 


tendiskette für die Rockplatten. Die- 


se drei benötigten Disketten können 
Sie nun mit einem Laufwerk benut- 
zen, ohne daß Sie zum 1541 Disk- 
jockey werden. Sie gehen wie folgt 
vor: 


— Einlesen der Datendiskette (1) in 
die RAM-DISK (1) mit ‘D: Br 
(D:1=0). 


Eingabe- und Ausgabearbeiten ab- 
schließen möchte, darf er aller- 
dings nicht vergessen, die aktuellen 


Datendisketten im RAM1/RAM2 
auf die alten Datendisketten zu ko- 


pieren. Dies erledigt der 
‘DUPLICATE°‘-Befehl (D:D=R 
oder D:0=1) in kürzester Zeit für 
den Anwender. 


STATUS 


(Status der Turbo-Trans + 1541) 


Format: OPEN 15,8,15,'ST” 


Dieses wichtige Kommando bewirkt, 


daß dem Anwender der aktuelle 
Zustand des Laufwerks angezeigt 
wird, nach anschließendem Abfra- 


gen des Fehlerkanals, mit ‘CTRL-/‘. 


= 


Muster eines IC’s 


— Vertauschen der beiden RAM- 
Floppys mit ‘SW‘. 

— Einlesen der Datendiskette (2) in 
die RAM-DISK (2) mit ‘'D:R=D‘ 
(D:1=0). 

— Das Laufwerk auf Diskettenbe- 
trieb umschalten mit “T—‘. 

— Die Programmdiskette einlegen 
und das Programm laden. 

— Das Arbeiten kann beginnen. 

Da nun die Kapazität von drei Dis- 

ketteninhalten gleichzeitig zur Ver- 

fügung stehen, müssen auch bei 
größeren Datenmengen keine Dis- 
kettenwechsel mehr vorgenommen 
werden. Dem Laufwerk 1541 muß 

man nur per Kommando (T+, T—, 

SW) mitteilen, auf welche Disk/ 

RAMI/ RAM? zugegriffen werden 

soll. Diese Prozedur erscheint sicher 

sehr zeitaufwendig, aber der Ge- 
schwindigkeitsvorteil der RAM- 

Floppys kann überzeugen. Der 

“"Validate‘-Befehl, der je nach Dis- 

kette über zwei Minuten dauern 

kann, benötigt im RAM ca. 5 Se- 
kunden. 

Wenn der Benutzer die Computer 
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Anwenderbeispiel: 

Das Laufwerk kurz ausschalten und 
dann wieder einschalten. Wenn der 
Programmierer nun vom Computer 
aus den Fehlerkanal mit ‘CTRL-/‘ 
abfrägt, erhält er die Einschaltmel- 
dung der Floppy: 73, Turbo-Trans 
V3,0256(512)KB,00,00. 

Schickt man nun das ‘STATUS‘“- 
Kommando an die Floppy 
"CTRL-0,ST‘ und frägt danach den 
Fehlerkanal ab, erhält man folgen- 
de Meldung: 


10,DISK A+ G+ V+ L+ 256(512) 
KB,00,00 


Diese Angaben bedeuten: 

— DISK: Das Laufwerk ist auf Dis- 
kettenbetrieb eingestellt. 

— At: Die Anlaufsteuerung beim 
Disketteneinlegen ist aktiviert. 

— Gt: Die Kopfbewegung läuft 
bis zu 8x schneller. 

— V+t: Die Floppy führt bei jedem 
Schreiben ein ‘VERIFY’‘ aus. 

— Lt: Das bis zu 20x schnellere 
Laden von Diskette ist aktiviert. 


Die 256KB oder 512KB zeigen an, 
welche Turbo-Trans-Version man 
sein eigen nennt. Jeder dieser Para- 
meter kann natürlich verändert 
werden. Befehle, um den Parameter 
‘DISK‘ zu verändern kennen Sie 
schon: 

DUPLICATE (Lesen und Schrei- 
ben), TRANSFER (Turbo-Trans 
aktivieren/desaktivieren. 

SWAP (Austauschen der beiden 
RAM-Disks). 

Nach Eingabe des ‘DUPLICATE“- 
Kommandos zum Einlesen einer 
Diskette und nach Abfragen des 
Fehlerkanals, vorausgesetzt die 
eingelesene Diskette ist vollkom- 
men in Ordnung, erhält der An- 
wender bei der Statusangabe an- 
stelle von ‘DISK jetzt 'RAMI‘. 
Ansonsten erscheint die Fehlermel- 
dung DISK DAMAGE.... 

Bei den weiteren Erläuterungen 
setzen wir voraus, daß die eingele- 
sene Diskette OK und damit die 
RAM-Floppy aktiviert ist. 

Gibt der Benutzer nun das 
-TRANSFER'-Kommando zum 
Umschalten auf Diskettenbetrieb 
(T—) ein und frägt den Floppysta- 
tus ab, erhält er anstelle vom 
“RAMI‘ wieder ‘DISK‘ als Status- 
meldung. Gibt man nun das ande- 
re TRANSFER‘ Kommando (T+) 
ein, so enthält der Status jetzt wie- 
der 'RAMI!‘. 


FLOPPY-STATUS JEDERZEIT 
ABFRAGBAR 


Die Besitzer der 512KB-Version 
können jetzt das ‘SWAP‘-Komman- 
do eingeben und den Status abfra- 
gen und erhalten wieder ‘DISK‘. 
Dies hat auch seine Richtigkeit, 
weil in der zweiten RAM-F loppy 
noch keine sinnvollen Daten stehen. 
Kopiert der Anwender nun eine 
weitere Diskette mittels ‘DUPLI- 
CATE‘ in die zweite RAM-DISK 
und frägt danach den Status ab, 
erhält er 'RAM2‘. Wenn er nun 
noch einmal ‘SWAP* eingibt, ist 

der Status 'RAMI‘. Er kann also mit 
dem Statusbefehl jederzeit den 
Floppystatus abfragen und die Aus- 
führung der Befehle überprüfen. 

Der ‘STATUS‘-Befehl ist ein nicht 
zu unterschätzendes Hilfsmittel 
zum Arbeiten mit Turbo-Trans, wie 
der Anwender unschwer erkennen 
kann. Alle anderen Befehle zur 
Veränderung der Statusparameter 
werden im Verlauf dieses Berichts 
noch erklärt, weil diese Komman- 
dos sich nicht direkt auf die Bedie- 
nung der RAM-Floppys beziehen. 
Diese Serie wird im nächsten 
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